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FAÇA PROGRAMAS 
MAIS CURTOS 


Programas mais curtos ocupam menores 
espaços na memória do computador, 
além de serem de execução mais rápida. 
Aprenda a trabalhar com eles, 
melhorando o desempenho do seu micro. 


Umadas regras básicas para se escre- 
ver um programa é torná-lo claro e le- 
gível, usando linhas curtas com comen- 
tários e espaços em branco e, se possi- 
vel, com nomes longos de variáveis. 

Evitar a digitação de muitos caracte- 
res é uma das exigências mais importan- 
tes quando se pretende, por exemplo, 
copiar a longa listagem de uma revista. 
Neste caso, não há necessidade de digi- 
tar todas as declarações REM do pro- 
grama. Afinal, sempre é possível con- 
sultar a revista mais uma vez, caso a fi- 
nalidade de alguma seção do programa 
tenha sido esquecida. 

Outra maneira de reduzir o trabalho 
de digitação na entrada de um progra- 
ma é omitir palavras-chaves opcionais 
do BASIC, embora nem todos os micros 
admitam esse tipo de omissão (é o caso 
do Sinclair). Mas em outros computa- 
dores você pode deixar de lado todos os 
LET e THEN, que são declarações op- 
cionais, ou mesmo — como no caso de 
uma linha de programa que contenha 
IF... THEN GOTO... — omitir o THEN 
ou o GOTO (a eliminação de ambas as 
partes, porém, não é possível). 

Alguns micros permitem que se en- 
trem palavras-chaves de forma abrevia- 
da, como ? em vez de PRINT, e ' (após- 
trofo), para substituir REM, nos micros 
das linhas TRS-80 e TRS- Color. 

Quando o programa for listado ou 
impresso, as abreviações aparecerão por 
extenso (com exceção do apóstrofo). As- 
sim, embora isso poupe tempo de digi- 
tação, não leva a nenhuma economia de 
memória, e nem faz com que o seu pro- 
grama rode mais rápido. 





“COMO ECONOMIZAR MEMÓRIA 


Outra razão para se encurtar um pro- 
grama é economizar espaço da memó- 
ria. Essa economia é decisiva em progra- 











mas muito longos. 

Uma das formas de economizar bytes 
extras é utilizar nomes de variáveis com 
uma letra apenas. Esse procedimento 
poupa não só tempo de digitação, co- 
mo também espaço de memória. Mas é 
sempre bom manter uma lista sobre o 
que faz cada variável, já que fica mais 
difícil usar códigos mnemônicos para 
variáveis com apenas uma letra. 

Outra maneira de se encurtar um pro- 
grama é omitir espaços em branco en- 
tre comandos, variáveis e operadores. 
Isso não se aplica ao ZX-81 e ao Spec- 
trum (nesses micros, Os espaços apare- 
cem automaticamente). Em outros mi- 
cros a omissão de espaços é uma medi- 
da extrema, pois ela torna muito difícil 
a leitura do programa. Uma regra, con- 
tudo, deve ser sempre observada: você 
deve deixar um espaço entre uma variá- 
vel e o início de uma palavra-chave. As- 
sim, uma linha como essa: 


IF A = B AND B = C THEN PRINT 
"OK" 

pode se tornar mais curta desse modo: 
IFA=B ANDB=C THENPRINT"OK” 
Mas, se você escreveu: 


LO 








E | USECOMANDOS ABREVIADOS 
E | COMO ECONOMIZAR MEMÓRIA 
e COMANDOS MÚLTIPLOS 
a COMO MELHORAR À 


VELOCIDADE DE UM PROGRAMA 


IF A=BAND B=C THENPRINT"OK" 

o computador pensará que existe uma 
variável chamada BAND, e, como ela 
não existe, poderá ocorrer um erro du- 
rante a execução do programa (ou, em 
alguns micros, uma mensagem de erro). 

Um terceiro modo de economizar 
memória consiste em combinar várias 
declarações em uma única linha. Na 
maioria dos computadores descritos 
aqui (linhas TRS-80, TRS-Color, MSX, 
Sinclair Spectrum, Apple II e TK-2000), 
o sinal de separação entre os comandos 
contidos em uma mesma linha é : (dois 
pontos). Apenas nos micros compatíveis 
com a linha ZX-81 isso não é possível. 
Mas esse recurso torna os programas 
mais difíceis de serem entendidos. 

A maioria dos métodos aqui indica- 
dos tende a acelerar ligeiramente a ve- 
locidade de execução de um programa. 
Outro truque para se nuclear a execu- 
ção de laços FOR...NEXT é omitir a va- 
riável que vem após o NEXT (isso não 


é permitido em alguns micros). Se o pro-' 


grama tiver vários laços aninhados, ter- 
minando na mesma linha, podemos co- 
locar um único NEXT; por exemplo: 
NEXT A, B, € (apenas certos micros 
aceitam esta sintaxe). 


| e 


















ABAIXO 
DE ZERO 


Durante a programação em código de 
máquina, é comum nos depararmos 
com números negativos, como por 
exemplo quando, numa programação de 
jogos, somos levados a movimentar fi- 
guras em determinadas direções ao lon- 
go da tela, 

Como todos os outros, esses núme- 
ros devem ser codificados em bytes de 
oito bits, pois os computadores com uni- 
dades de memória desse tipo não con- 
tam com outros recursos para armaze- 
nagem de algarismos. Isto, porém, le- 
vanta um problema: como você já viu, 
um byte pode representar qualquer nú- 
mero de O a 255, ou 00000000 a 
11111111, em binário. Mas isso esgota 
todas as possibilidades do binário de oi- 
to bits, já que não existe espaço para si- 
nais de mais (+ ) ou menos (-),e nenhu- 
ma maneira pela qual eles possam ser re- 
presentados nessa gama de valores. Em 
aritmética simples, se você subtrair 1 de 
O obterá — 1. Agora, tente o mesmo cál- 
culo em binário com oito bits: 


00000000 
=] 


11111111 


Esse resultado levará você, ao chegar 
ao oitavo bit à esquerda, a pedir “em- 
prestado” um do próximo lugar à es- 
querda; mas quando o número binário 
é limitado a oito bits não existe nada à 
esquerda a ser emprestado. Do mesmo 
modo, se você subtrair outro 1 (para ob- 
ter—-2 em aritmética simples), obterá 
11111110. Mas se 11111111 em binário 
equivale a 255 em decimal, então 
11111110 deverá ser 254! 

Imagine agora, por exemplo, o que 
poderia acontecer em decimal se você 
não tivesse mais que três dígitos ou “co- 
lunas"" para colocar seus números. Ve- 
ja o que acontece se você tentar acres- 
centar 999 a 100, quando tais limitações 
são impostas: 


100 
+ 999 
(1)099 


O número um, na unidade de milhar, 
teve que ser colocado entre parênteses. 


Eno PR 2 6 PR A O RR 


Diretamente relacionados com o 
funcionamento interno do 

computador, binários e hexadecimais 
apresentam problemas quando é 
preciso representar números negativos. 


Em nossa aritmética de três digitos, sim- 
plesmente não existe espaço para ele. 
Assim, o resultado dessa adição, em um 
sistema de três dígitos, será 99, que é 
exatamente o que você obterá se subtrair 
| de 100! 

Do mesmo modo, em um sistema de- 
cimal de três dígitos, o resultado da so- 
ma de 998 mais 100 seria o mesmo da 
subtração de 100 menos 2. E subtrair 998 
de 100 seria o mesmo que adicionar 2. 

Recapitulando: a mesma série de al- 
garismos em um byte de oito bits pode 
representar um número negativo e um 
positivo. Qualquer operação torna-se 
confusa e difícil diante disso. 

O que você pode fazer em relação a 
isso? Bem, na maioria das aplicações em 
computadores domésticos, não há com 
que se preocupar: os endereços de memó- 
ria e códigos de operação, ambos repre- 
sentados em binário, serão sempre con- 
siderados positivos. As únicas vezes em 
que você encontrará números negativos 
serão com dados ou com os chamados 
saltos relativos, os quais são códigos de 
máquina aproximadamente equivalentes 
às declarações GOTO do BASIC, 


COMO “VIRAR” OS BITS 





O processo utilizado em binário pa- 
ra se obter, a partir de um número po- 
sitivo, o seu valor negativo, é conheci- 
do como complemento de 2. Na reali- 
dade, essa técnica não tem uma base teó- 
rica muito bem fundamentada; o impor- 
tante é que ela funciona. 

Para se obter o valor negativo de um 
número binário, é necessário “*virar” os 
bits e acrescentar 1. “Virar os bits” sig- 
nífica transformar os bits 1 em O e aque- 
les que têm valor 0, em 1. 

No programa seguinte mostramos co- 
mo isso funciona. Note que, quando o 
binário for limitado a oito dígitos, seu 
equivalente em hexadecimal preencherá 
exatamente dois dígitos. Isso significa 
que o hexadecimal equivalente ao com- 
plemento de 2 também atuará como o 
negativo. 


10 CLS 


20 PRINTEB, "NUMEROS NEGATIVOS”; 
30 PRINT640, STRINGS (16,CHRS(13]1 
))3 

40 PRINT665,"DEC"TAB(1I5)"BIN"TA 

B (28) "HEX" 

50 PRINTE226,"+"TAB(29)"+"; 

60 PRINTE361,"COMPLEMENTO DE 2" 
70 PRINTÊ48B3,"O0 0000 00 
OQ 00”; 

BO FOR J=1474 TO 1502:POKE J,13 
1:NEXT 

90 FOR J=1 TO 7 

100 FOR K=1 TO 24 

110 POKE 1123+K+32*9,175 

120 NEXT K,d 

130 PRINTEl/74,"BITS"; 

140 PRINT6313,"+1"; 

150 AT=AT AND 255 

160 T=AT:; IF T=128 THEN SOUND 3 

OD, 
170 
180 


LN=3:GOSUB 280: GOSUB 310 
T=T+256*(T>127) :GOSUB 340 
190 T=255-T:LN=7:GOSUB 280 

200 T=T+1):T=T AND 255:LN=13:G05 
UB 280: GOSUB 310 

210 T=T+256*(T>128) :GOSUB 340 
220 INS=INKEYS:IF INS<>"B" AND 


INS<>" ” AND INS<>CHRS(13) THEN 
220 

230 IF INS$="B” THEN AT=AT-1:GOT 

o 150 

240 IF INS=" " THEN AT=AT+1:GOT 

O 150 

250 PRINT €384,;: INPUT AT 

260 PRINT 6384," 4 

2!'0 GOTO 150 

280 FOR X=0 TO 7 

290 IF-(T AND 2"X) THEN PRINT € 


LN*32+23-H*2+(X2>3),"7 1"; ELSE PRI 
NT €LN*32+23-X*2+(823),"70"; 
NEXT: RETURN 

IF T<1l6 THEN AS="0" ELSE AS 


PRINT €LN*32+29,AS+HEXS(T); 
RETURN 

10 PRINT €32*LN,MIDS(” 
S(T) ,LENCSTRS(T))); 

350 RETURN 


10 PRINT AT 0,7; "NUMEROS NEGA 
TIVOS” 

20 PRINT AT 2,1;"DEC";TAB ld; 
"BIN";TAB 28; "HEX" 

30 LET ASS" 


"+STR 


40 FOR N=7 TO 13 
50 PRINT AT N,6; 
60 NEXT N 

70 PRINT AT 8,14;"BITS”; 


INVERSE 1;AS 















sa QUANDO SÃO NECESSÁRIOS 
NÚMEROS NEGATIVOS 

E A CONVERSÃO DE NUMEROS 
NEGATIVOS 

E A CONVENÇÃO DOSINAL 








BRIGHT 1;AT 12,21;"+1º 140 FOR N=1 TO 8: LET A(N)=0 ELO PRINT AT 10,0," ===)" «ess 
80 PRINT AT 10,3;"+";AT 10,30 180. TÉ CE-=D>=D THEN LET A(U)=  —======—==.= E saga 

E dm 1: LET CC=CC-D 220 PRINT AT 19,3;"0 Ooo 
90 PRINT AT 15,7;"COMPLEMENTO 160 PRINT BRIGHT 1l;AT 4,6+2*N DIO 0 0 O 00" 

DE 2" “A(N)J:AT 10,6+2*N;1-A (N) 230 IF INKEYS="" THEN GOTO 

95 LET C=0 170 LET D=D/2: NEXT N 230 
100 LET DD=-C: DIM A(8) 180 POKE 23608,DD: LET DD=PEEK 240 LET AS=INKEYS; IF AS=" " 
110 PRINT AT 4,0;" "AT d,4 23608: LET D=128 THEN LET C=C+l: IF C=128 THEN 
-LEN STR$S C;€ 185 LET Z=DD: GOSUB 300: PRINT LET €C=-128: SOUND 1,1 
115 POKE 23608B,C: LET E=PEEK AT 17,29;AS 250 IF AS="B” OR AS="b”" THEN 
21608: LET Z=E: GOSUB 300: 190 FOR N=1 TO B: LET B=0: IF LET C=C-l: IF C=-129 THEN LET 
PRINT AT 4,29;AS DD-D>=0 THEN LET B=l: LET DD= C=127: SOUND 1,1 
120 PRINT AT 17,0;" "AT 17 DD-D 260 IF AS<>" " AND AS<>"B” AND 
| 4-LEN STR$ DD;DD 200 PRINT BRIGHT 1l;AT 17,6+2* AS<>"b” THEN INPUT "?7":c 


130 LET D=128: LET CC=E N;B: LET D=D/Z: NEXT N 2/0 GOTO 100 








COMO CONTAR EM COMPUTÊS 

Se quisermos contar qualquer coisa 
| em um computador, devemos começar 
sempre do zero e avançar daí para ci- 
| ma. Por exemplo, as locações de me- 
mória são numeradas em hexadecimal, 
de 0000 a FFFF. 

O mesmo acontece com os bits em 
um byte. Quando numeramos os bits, 
começamos a partir da direita, com o 
bit número O, e aumentamos a conta- 


gem à medida que nos deslocamos pa- | 


ra a esquerda. 


Assim, o dígito binário da extrema | 
| direita é chamado de bit O. O que está | 


imediatamente à sua esquerda é cha- 
mado de bit 1, o seguinte de bit 2 e as- 
sim por diante, até o bit 7 — aquele que 
está na extrema esquerda de um byte. 

Assim como em política, os termos 
“à direita” e “à esquerda” podem, em 
certos casos, parecer um pouco con- 
fusos, especialmente quando lidamos 


com números de dois bytes que podem | 
ser armazenados de cima para baixo, | 


' ou de baixo para cima, dependendo de 
| como o computador opera. 


Em “'computês” correto lou seja, na | 


| linguagem universal dos computado- 


| res), esses números são chamados de | 


| valor mais significativo — isto é, com 
o endereço mais alto — e valor menos 
significativo. 

Dessa forma, se você estiver arma- 
zenando um endereço — 3DB8E, por 
exemplo — 3D é o byte mais signifi- 
cativo, enquanto BE é o byte menos 
significativo. 

Os computadores das linhas Sin- 
clair, TRS-BO e MSX colocam o byte 
menor ou|menos significativo — BE, no 
exemplo acima — na locação de me- 


| mória mais baixa. O byte alto, que va- | 


le 100 em hexa (ou 256 em decimal), 


3D neste caso, é colocado com o en- | 


dereço mais alto na locação de memó- 
ria (isto é, o endereço de memória que 
recebeu BE, mais 1). 

Existe uma Única exceção para es- 
ta convenção de baixo/alto: os núme- 
| ros da linha BASIC são armazenados 
em forma inversa. 

O TRS-Color, por sua vez, armaze- 
na todos os números de dois bytes na 
locação de memória mais baixa com o 
byte alto, e armazena o byte baixo na 
locação de memória mais alta. 

"A mesma terminologia se aplica aos 
bits. O bit mais significativo no núme- 
ro binário 01010101, obit 7,é0,e0 
bit menos significativo, o bit O, é o 1. 





300 LET ZA=INT (Z/16): LET ZB= 
Z- (L6*ZA) 

310 LET ZA=ZA+48: 
THEN LET ZA=ZA+/ 
320 LET ZB=ZB+4B; 
THEN LET ZB=ZB+/ 
330 LET AS=CHRS ZA: LET AS=AS+ 
CHRS ZB: RETURN 


IO PRINT AT 0,7;"NUMEROS NEGAT 
IVOS” 

20 PRINT AT 21,1;"DECº;TAB 14; 
"BIN" ;TAB 28;"HEX” 

30 LET AS=" 


IF ZA25/ 


IF 2ZB>57 


40 FOR N=7 TO 13 
50 PRINT AT N,6;AS 
60 NEXT N 
70 PRINT AT B, 14;"BITS";AT 12, 
21 : "+1” 
80 PRINT AT 10,3;"+";AT 10,30; 
o 
90 PRINT AT 15,8;"COMPLEMENTO 
DE 2” 
95 LET C=0 
100 LET DD=-C 
105 DIM A(B) 
110 PRINT AT 4,0;" 
LEN STR$ C;C 
115 POKE 16507,c 
116 LET E=PEEK 16507 
117 LET Z=E 
118 GOSUB 300 
119 PRINT AT d,29;AS 
120 PRINT AT 17,0;" 
4-LEN STRS$S DD;DD 
130 LET D=128 
135 LET CC=E 
140 FOR N=1 TO 8 
145 LET A(N)=0 
150 IF CC-D>=0 THEN LET A(N)=1 
155 IF CC-D>=0 THEN LET CC=CC-D 
160 PRINT AT 4,6+2*N;A(N)J;AT 10 
(6+2*N;1-A(N) 
170 LET D=D/2 
175 NEXT WN 
180 POKE 16507,DD 
181 LET DD=PEEK 16507 
182 LET D=128 
185 LET Z=DD 
186 GOSUB 300 
187 PRINT AT 17,29;AS 
190 FOR N=1 TO 8 


191 LET B=Q 
192 IF DD-D>=0 THEN LET B=l 


193 IF DD-D>=0 THEN LET DD=DD-D 
200 PRINT AT 17,6+2*N;B 
205 LET D=D/2 

207 NEXT N 

£10 PRINT AT 18,0; "-——- 


"AT 4,40 


"qAT 17, 


o— — — ii 


220 PRINT AT 19,3;"0 
0000 00” 

230 IF INKEYS$="" THEN GOTO 230 
240 LET AS=INKEYS 

2ãa IP AS>CE” THEN LET C=C+] 
244 IF AS="Fº AND C=128 THEN 
LET C=128 

250 IF AS="Bº THEN LET C=C-] 
255 IF AS="B” AND C=-129 THEN 


O 000 


LET C=127 

260 IF AS<>"F” AND AS<>"B” THEN 
INPUT C€ 

270 GOTO 100 

300 LET ZA=INT (Z/16) 
305 LET ZB=Z-(L6*ZA) 
310 LET ZA=ZA+28 

320 LET ZB=ZB+28 

330 LET AS=CHRS ZA 
340 LET AS=AS+CHRS ZB 
350 RETURN 


ry 


10 SCREEN 1:KEY OFF 

14 VPOKE BASE (6)+27,166 

20 LOCATE 6,0:PRINT “Números ne 
gativos”; 

30 LOCATE 6,1:PRINT STRINGS (17, 
223): 

40 LOCATE 3,3:PRINT "DEC";TAB(1 
3);"BIN";TAB(24);"HEX”"; 

50 LOCATE 1,10:PRINT "+"; TAB(27 
o a 

60 LOCATE 6,17:PRINT "Complemen 
to de 2"; 

70 LOCATE 0,21):PRINT * O 00 
00 0000 00 *; 

BO FOR J=2 TO 30 

Bá VPOKE BASE (5)+J+19*32,223 

BB NEXT 

90 FOR J=1l TO 7 

100 FOR K=1 TO 24 

110 VPOKE BASE (5)+195+K+32*],21 
E 

120 NEXT K,J 

130 LOCATE 12,11:PRINT "BITS"; 
140 LOCATE 23,12:PRINT "+1º 

150 AT=AT AND 255 

160 T=AT 

165 IF T=128 THEN SOUND 7,56:50 

UND 8,15:SOUND 1,1:FORI=1 TO 50 
:NEXT: SOUND 8,0 

170 LN=3:GOSUB 2B0 

175 GOSUB 310 

180 T=T+256*(T>127) 

185 GOSUB 340 

190 T=255-T:LN=7:GOSUB 280 

200 T=T+l:T=T AND 255:LN=13 

205 GOSUB 280:GOSUB 310 

210 T=T+256*(T>128) 

215 GOSUB 340 

220 INS=INKEYS:; IF INS<>"B” AND 

INS$<>" " AND INS<>CHAS (13) THEN 
220 

230 IF INS$="B” THEN AT=AT-1:GOT 

o 150 

240 IF INS$=" " THEN AT=AT+1:GOT 

o 150 

250 LOCATE 0,20: INPUT AT 

260 LOCATE 0,20:PRINT ” nd” 

270 GOTO 150 

280 FOR X=0 TO 7 

290 IF -(T AND 2"X) THEN VPOKE 

BASE (5) FLN*32+87-X*2+(X>3) ,ASC( 
"1") ELSE VPOKE BASE (5) +LN*32+8 
7-X*%2+(X>3)  ASC("0”) 

300 NEXT:RETUAN 

310 IF T<l6 THEN AS="0" ELSE AS 
320 LOCATE 25, LN+2: PRINT AS+HEX 

S(T): 











ILUS 


330 RETURN 

340 LOCATE 0,LN+2: PRINT MIDS(” 
"+STRS(T), LEN(STRS(T))); 

350 RETURN 


Um número binário ou hexadecimal 
pode, na maior parte das vezes, atuar 
perfeitamente bem, seja ele um número 
positivo ou negativo. Mas, às vezes, vo- 
cê precisa saber se um número é positi- 
vo ou negativo. 

Quando se quer que um programa dê 
um salto, em código de máquina, é pre- 
ciso especificar quantos bytes deve ter 
o salto a ser dado pelo computador: com 
um número positivo, no caso do salto 
para a frente; com um número negati- 
vo, para saltar para trás. 

O que o computador faz é olhar pa- 
ra o primeiro bit do número binário e 
decidir se o número é negativo ou posi- 
tivo. Se o primeiro bit for 1, o compu- 
tador o tomará como negativo. Se for 
0, ele será considerado como positivo. 

Conhecido como convenção de sinal 
esse processo indica que, ao invés de to- 
mar números binários de oito bits para 


Na convenção de sinal, o número 128 

(ou 10000000, em binário) atua como seu 
próprio negativo e o computador recomeça 
a contar de forma ascendente. 


representar a série de O a 255, o compu- 
tador a trata como — 128 a + 127, 

No programa de conversão de com- 
plemento de 2, você notará que o com- 
putador se atrapalha quando chega ao 
128. Isso se deve a que o 128, ou seja, 
10000000 em binário, ou 80 em hexa, 
atua como o seu próprio negativo (você 
pode verificar por si mesmo: — 10000000 
+ 10000000 = (1)00000000 ou O em bi- 
nário de oito bits, do mesmo modo que 
80 + 80 = (1)00 ou O em hexa de dois 
digitos. E 128 — 128 = 0 em decimal). 

Portanto, qual deles é positivo ou ne- 
gativo? O 10000000 tem o 1 em seu pri- 
meiro bit; o computador o trata como 
um número negativo: — 128. Por outro la- 
do, o O — ou 00000000 — tem o O em 
seu primeiro bit; desse modo, o compu- 
tador o trata como positivo. 


| Quando posso utilizar o sistema deci- 


mal codificado em binário (BCD)? 


O BCD é empregado para imprimir 
números na tela, ou transmiti-los rapi- 
damente. Para codificar um decimal de 
dois dígitos em um byte em binário, co- 
locamos o dígito à direita nos últimos 
quatro bits significativos (um “” meio 
byte'') e o dígito à esquerda dentro do 
meio byte mais significativo. 

Existem dezesseis dígitos que po- 
dem ser codificados em quatro bits bi- 
nários. O BCD é um número hexadeci- 
mal sem as letras À, B, C,D, E eF.O | 
único problema surge quando obtemos 
um número maior que 9 em um dos | 
meios bytes. | 
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Listas, tabelas e instruções são mais 
compreensíveis quando distribuídas 
pelo vídeo de forma clara e ordenada. 
Use comandos do BASIC para isso, 


Existem muitas maneiras de se dispor 
textos na tela. Mas é importante orga- 
nizar bem a exibição, especialmente se 
você está escrevendo um programa que 
outras pessoas utilizarão. 

Cada computador possui uma manei- 
ra própria de posicionar o texto na te- 
la. Algumas funções de posicionamen- 
to são padronizadas para todas as ya- 
riantes do BASIC, independentemente 
da marca do computador (exemplo: a 
função TAB e os sinais de pontuação — 
vírgulas e pontos e vírgulas — utilizados 


para separar os elementos de uma decla- 
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ração PRINT). Entretanto, há outros 
comandos (associados ou não ao 
PRINT) destinados a posicionar o cur- 
sor na tela por meio do endereçamento 
por linhas e colunas e que variam ampla- 
mente entre os diversos computadores: 


Comando Microcomputador 
PRINT AT Sinclair 

PRINT & TRS 

LOCATE MSX 

HTAB e VTAB Apple 


Trinta 
EEE 





"BOM DIA” 


PRINT 


imprimirá a mensagem na próxima linha 
em branco, a partir da margem esquer- 
da da tela, 





[E COMO UTILIZAR TAB COM 
RE... 
no SINAIS DE PONTUAÇÃO 


E | COMO MELHORAR A EXIBIÇÃO 


EM TELA 


Entretanto, existem meios para dizer 
ao computador como imprimir a men- 
sagem em uma posição diferente: 


PRINT TAB(20)"BOA TARDE” 


A função TAB é usada em conjunto 
com um PRINT. O número entre parên- 
teses especifica a coluna a partir da qual 
o texto (ou número) que se segue será 
impresso. Pode-se colocar também uma 
expressão numérica ou uma variável. 

O resultado da expressão numérica ou 
o número colocado como parâmetro po- 
dem ser fracionários, mas o computador 
usará apenas a sua parte inteira (por 
exemplo, TAB (23, 2197) será aproxima- 
do para 23). O número resultante deve 
ficar entre O e o número máximo de co- 
lunas por linha do computador. E pos- 
sivel também posicionar cada palavra se- 
paradamente. Modifique a linha para: 











PRINT TAB(20)"BOA” TAB(30)” 


TARDE” 

A primeira palavra é impressa a par- 
tir da coluna 20, e a segunda, a partir 
da coluna 30 (TAB negativo não funcio- 
na, ou seja, não se pode recuar posições 
na linha de impressão). 

Não existe espaço em branco entre a 
palavra-chave TAB e o primeiro parên- 
tese. Alguns micros exigem ponto e 
virgula entre o TAB e o elemento que 
O segue: 


PRINT TAB(20);" BOA”; 
TAB (30) ; " TARDE” 





SINAIS DE PONTUAÇÃO R 


A função TAB indica a coluna, nu- 
ma linha de impressão na tela, a partir 
da qual o texto será exibido. 

O comando PRINT emprega virgula 
e ponto e virgula (e também apóstrofo, 
na linha Sinclair Spectrum), para deter- 
minar O espaço entre os elementos a se- 
rem impressos. 

Quando dois elementos de uma linha 
PRINT são separados por um ponto e 
vírgula, o computador não concede es- 
paço entre eles e: 

PRINT "TOCA”";"DISCOS" 
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imprimirá TOCADISCOS, sem separa- 
ção. Se os elementos de PRINT forem nu- 
meros, e não cordões alfanuméricos, O 
resultado dependerá do tipo de micro. 
Alguns colocarão um espaço em bran- 
co antes do número a ser impresso. 
Assim, 

PRINT "SOMA" ;25 


mostrará o resultado: SOMA 25. 

No Sinclair, entretanto, o resultado 
dessa instrução seria: SOMA2S. 

A virgula funciona como a função 
TAB. A cada virgula encontrada, o pro- 
grama coloca a próxima informação a 
ser impressa numa posição distante dez 
colunas (ou dezesseis, no Sinclair) à di- 
reita da última posição inicial. Assim, 
PRINT "TOCA”,"DISCOS”" 
produzirá: 

TOCA DISCOS. 


Em muitos casos, especialmente 
quando há colunas de números ou de 
palavras, a informação pode ser posicio- 
nada muito mais facilmente e com mui- 
to menos esforço de sua parte, exigin- 
do o emprego da função TAB apenas de 
vez em quando. Digite e execute as li- 
nhas a seguir, para ter uma idéia de co- 
mo isso funciona: 





10 PRINT "01234567890123456678 
901234567890" 
20 PRINT 9;9 
30 PRINT 9,9 


A linha 10 numera as colunas no to- 
po da tela. Uma virgula separa os nú- 
meros em ''campos””, cada um com dez 
colunas de extensão (dezesseis, no Sin- 
clair). Agora tente o mesmo programa 
com textos (isto é, cordões alfanuméri- 
cos), acrescentando essas linhas: 


40 LET AS="A” 
50 PRINT AS;AS 
60 PRINT AS,AS 


Normalmente, costumamos alinhar 
palavras à esquerda e números à direi- 
ta, mas os computadores descritos aqui 
não fazem isto automaticamente. 

O ponto e virgula é essencial para 
que a função TAB funcione corretamen- 
te, pois uma vírgula após um TAB pro- 
vocará o deslocamento para uma nova 
posição de tabulação. O ponto e vírgula 
também é útil no final de uma declara- 
ção PRINT. Sua função, neste caso, é 
manter o cursor de impressão na tela, 
na última posição impressa, de tal for- 
ma que o próximo comando PRINT en- 
contrado pelo programa comece a im- 
primir nessa posição, sem mudar de li- 
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nha na tela. O programa a seguir impri- 
me todo o alfabeto utilizando um laço 
FOR...NEXT para incrementar de um 
em um os códigos ASCII para os carac- 
teres de À a Z. 


20 FOR C=65 TO 90 
30 PRINT CHRS(C); 
40 NEXT € 


(Para micros da linha Sinclair ZX-81, 
substitua a linha 20 por FOR €C = 38 TO 
63, pois eles usam um código diferente 
do ASCII.) Se você não colocar o pon- 
to e virgula ao final da linha 30, cada 
letra será impressa em uma linha sepa- 
rada. Os sinais de pontuação e o TAB 
oferecem tantas maneiras de se exibir 
textos na tela que você encontrará cer- 
tamente combinações adequadas aos 
seus próprios programas. 


E 
2 | Be a 


As linhas Sinclair contam com três 
declarações para posicionamento de tex- 
tos na tela: PRINT, PRINT AT e 
PRINT TAB. A declaração PRINT so- 
zinha imprime uma linha em branco (ve- 
ja mais adiante). 

A tela do Sinclair tem 22 linhas, nu- 
meradas de O a 21, a partir do topo da 
tela. Cada linha, por sua vez, tem 32 
“colunas”, ou posições, para os carac- 
teres, numerados de O a 31, a partir da 
margem esquerda da tela. O comando 
PRINT AT indica onde o texto a ser im- 
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presso vai começar: os números (ou ex- 
pressões) que seguem AT indicam a li- 
nha e a coluna; as linhas: 


PRINT AT 0,0,7*" 
PRINT AT 21,0,7A” 
PRINT AT 0,31,º** 
PRINT AT 21,31,7*” 


imprimirão um asterisco em cada canto 
do video. Se você quiser Imprimir mais 
de um caractere em uma locação da te- 
la, o computador imprimirá o primeiro 
caractere onde você determinar e o res- 
arte nas demais posições da mesma 
inha. 


PRINT AT 10,12;" COMPRIMENTO” 


coloca o “CC” na linha 10, coluna 12, e 
as outras letras em 10,13, 10,14.... etc., 
até 10,17. 

Outro recurso interessante do PRINT 
AT é que uma linha PRINT pode con- 
ter vários AT, separados por pontos e 
vírgulas. Por exemplo, a linha nsada pa- 
ra imprimir quatro asteriscos poderia ser 
assim: 

PRINT AT 0,0,"*"; 
AT 0,31,"*"; 


PRINT TAB 


AT 21,0,"*"; 
AT 21,31,"*” 


No Sinclair, a instrução PRINT TAB 
funciona, em muitos casos, do mesmo 
modo que PRINT AT. Contudo, exis- 
tem duas diferenças: não é preciso es- 
pecificar a linha; e não se pode utilizar 
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Utilizado tanto pelo comando PRINT como pelo INPUT, o ponto e vírgula serve para 
controlar o modo pelo qual a informação é exibida na tela, Cada item 
é colocado no vídeo, seguindo-imediatamente o item anterior na mesma linha. 


o PRINT TAB para escrever (nem para 
apagar) por cima de qualquer material 
na tela. Se você entrar um novo PRINT 
TAB na antiga posição, a impressão se- 
rá realizada em uma linha abaixo da an- 
terior. Agora, digite: 


PRINT AT 0,15;"*" 
PRINT AT 0,15;"?7" 


Limpe a tela (CLS) e tente isso: 


PRINT TAB 15;"*"; 
PRINT TAB 15;"?7"; 


Comparado com o PRINT AT, o 
PRINT TAB economiza trabalho de di- 
gitação e isenta o operador da tarefa de 
lembrar-se dos números de linhas à me- 
dida que vai prosseguindo. 

O programa a seguir permite que vo- 
cê digite as notas dos alunos de uma 
classe e as disponha ordenadamente na 
tela, usando uma série de funções TAB; 
além disso, ele calcula a média das no- 
tas (digite tudo em letras maiúsculas, pa- 
ra micros da linha ZX-81): 

10 PRINT "NOME”;TAB 12;”PROVA” 
;TAB 18;"ORAL";TAB 23;" EXAME"; 
TAB 29;"MED" 
20 PRINT AT 
30 INPUT n$ 
35 PRINT AT 
40 INPUT np 
45 PRINT AT 
50 INPUT no 
55 PRINT AT 
60 INPUT ne 
f0 LET m=( (np+no*2) /3+ne) /2 


20,0;"Nome E 
20,0;"Prova?”" 
20,0;"Oral 2?" 


20,0;"Exame?" 


BO PRINT NS;TAB l1l4;np; TAB 19; 
no; TAB 2Z4á;ne; TAB 29; m 

90 PRINT 

100 PAUSE 200 

110 GOTO 20 


As linhas PRINT, usadas para pedir 
os dados iniciais de cada aluno, são po- 
sicionadas com o AT na penúltima linha 
da tela. 

Ao ser rodado pela primeira vez, O 
programa limpa a tela e coloca na pri- 
meira linha as identificações correspon- 
dentes às colunas de dados. Em segui- 
da ele perguntará: “NOME?”. Digite o 
nome do aluno. Depois, perguntará su- 
cessivamente as notas da prova, do exa- 
me oral e do exame final. Entre núme- 
ros inteiros ou, no máximo, com uma 
decimal. Em seguida o programa mos- 
trará esses dados de entrada, juntamente 
com a média. Adicione as linhas: 


75 LET M=INT(M*10)/10 
76 LET NS=NS(TO 13) 

O primeiro problema é que a média cal- 
culada pela última parte da linha 80 pode 
conter muitas casas decimais, Isto é resolvi- 
do pela linha 75, por meio de uma opera- 
ção de arredondamento do resultado: mul- 
tiplicamos a média (M) por 10, tomamos o 
valor inteiro do resultado e o dividimos por 
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10. Vejamos a média 7,654321: multiplica- 
da por 10, ficaria 76,54321; seu inteiro é 76 
que, dividido por 10, é 7,6. 

Outro problema é que a primeira no- 
ta (NP) será mostrada na tela a partir 
da coluna 14. Isto quer dizer que o no- 
me do aluno não deve ter mais do que 
treze caracteres. A função TO na linha 
77 ““amputa” o nome do aluno de mo- 
do a caber nesse espaço. Para interrom- 
per o programa sem limpar a tela, pres- 
sione <CAPS SHIFT> junto com 
< BREAK > (no ZX-81, pressione ape- 
nas <BREAK >). A linha 100 lhe dará 
tempo de fazer isso. 

O programa abaixo oferece o esbo- 
ço de uma contabilidade doméstica: 


10 PRINT "NOME";TAB 10;" ITEM” 
TAB 26;" PRECO"; 
15 LET total=0 
20 FOR I=1 TO GB 
35 PRINT AT 20,0; 
INPUT ds 
PRINT AT 
INPUT 15 
PRINT AT 
INPUT p 
LET total=total+p 
PRINT dS;TAB 10;15S; TAB 
PRINT 
100 NEXT 1 
110 PRINT 
120 PRINT TAB 10; 
26; total 

Use corretamente a pontuação, com 
a declaração PRINT TAB. Normalmen- 
te, dois pontos e vírgulas são utilizados 
após PRINT TAB: 


10 FOR n=1 TO Zl 

20- FOR t=0 TO 24 STEP 6 
30 PRINT TAB tin; 

40 NEXT t 

50 NEKT n 


Quando tiver rodado o programa, 
modifique a linha 30 para: 


"Data 7" 


20,0;" Item 2?” 


20,0;"Preco?” 


Z6;p 


TAB 26; "===——= » 
"TOTAL"; TAB 


O ponto e virgula e" usado para 
mensagens uma apos a outras 

MENSAgEMMENSAsEMNENSAgenREnsagem 
DENSAgENMENsSagDEMNMEnsSagENNENSaADEM 
MENSAgEenMeENSLICMBENSageneEnsSagem 
MENSSgENMENSZgEMnEeNsFagennensagem 
mEnsagenMeNnsEagemmENSAgEnHEnsagem 
MENSAgENMENSAgEMMENSAgENNENSagEm 
MENFRDENMENnSageENMENSAgEMHCNSAgEM 
mEhSageEnMENSagennEensSagenhidnsadgem 
iFNSAgEeEnNhENnsAgEeMMEPNSAgERMENSAgEM 
MENSAgENMENSagDENMENSAgEMMENSADEM 
MENS2GenBeEnNSAgenRENSAGENMENSAHEM 
nENnGFAgennehEddPnMTNSAgEMmMENSADEM 
MENnSAgenhensasenhencagentensagem 
nenSagenhensageEmBENSaAgEMNMENSaDEM 
MENGAgENMENSAgemCNnSAagrhNensagem 
MENSAgemMENSAagEMRENGAGEIimeEnsSagEem 
MENSAgEeNMENSAgenMENSagENHEnNSAgEM 


Veja como usar um ponto e vírgula para 
preencher a tela com uma mensagem 
(exemplo rodado no Spectrum). 


10 PRINT"mensagemn” 
20 GOTO 10 
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Os apóstrofos instruem o computador a colocar o item seguinte em uma nova linha, 
quando a máquina estiver impossibilitada de fazer isso automaticamente. 
Nem todos os computadores, entretanto, contam com esse recurso de pontuação. 


30 PRINT TAB t,n; 
“. € então compare-a com essa: 
30 PRINT TAB t;n 


Um ponto e virgula significa: 
“Aproxime bem a próxima palavra, sem 
nenhum espaço"; uma virgula significa: 
“Comece a próxima palavra no início 
da coluna O ou da coluna 15''; uma de- 
claração PRINT TAB precisa sempre de 
dois pontos e vírgulas (do contrário, a 
desordem se instalará na tela). 


og pç SE 


A maneira mais fácil de exibir uma 
mensagem na tela é: 

PRINT “OLA” 

Se PRINT “OLA” estiver na última 
linha da tela, esta rolará para cima, de 
modo a dar espaço à mensagem (não se 
esqueça de digitar as aspas). Limpe a te- 
la antes e tudo ficará claro: 


10 CLS 
20 PRINT “OLA” 


Agora “OLA"' aparece no topo à es- 
querda. Acrescente essa linha e rode o 
programa: 


30 PRINT "ADEUS" 


““ADEUS'' aparecerá abaixo de 
“OLA”. Se quiser uma linha branca en- 
tre “OLA” e ''ADEUS”, acrescente: 


25 PRINT 


Agora você já sabe como suas men- 
sagens são organizadas verticalmente na 
tela, mas ainda não sabe como elas apa- 
recerão em cada linha. Suponha que vo- 
cê queira exibir “OLA” no meio da li- 
nha. O micro tem uma função (TAB) 
que coloca a mensagem no ponto da li- 
nha que você quiser. Acrescente essa li- 
nha e rode o programa: 


40 PRINT TAB(15);"BOA TARDE!” 


Os espaços em cada linha são nume- 
rados de O a 31 no TRS-Color, e de O 
a 63 no TRS-80. Então, a mensagem na 
linha 40 começará no espaço número 15. 
Não deixe espaço entre TAB e o parên- 
tese, no TRS-Color; senão, (15) será tra- 
tado como variável e TAB não funcio- 
nará. Veja como TAB calcula o quadra- 
do, o cubo, a raiz quadrada e o inverso 
dos números de 1 a 12: 


10 CLS 

20 PRINT "NUMERO" ;TAB(B) 
“TAB (14) ;"QUAD.";TAB(21) 
:'TAB(27);" INVER" 

30 FOR J=1 TO 12 

40 PRINT TAB(1);J;TAB(7);J*J*J; 
TAB (13) ;J*J; TAB(20); INT(SOQR(J)* 
1000)/1000;TAB(26);INT(1000/J)/ 
1000 

50 NEXT J 


;: "CUBO” 
"RAIZ" 


Um problema que deve ser resolvido 
neste programa, com um pouco de arit- 
mética elementar, é que a raiz quadra- 
da e o inverso do número J, calculados 
pela última parte da linha 40, podem ter 








muitas casas decimais. Isso é resolvido 
por meio de uma operação de arredon- 
damento do resultado para conter ape- 
nas casa decimal: multiplicamos a 
raiz quadrada por 1000, tomamos o va- 
lor inteiro do resultado, e o dividimos 
por 1000. Vejamos, por exemplo, a raiz 
7,654321: multiplicada por 1000 ficaria 
7654,321; seu inteiro é 7654 que, divi- 
dido por 1000, ficaria 7,654. Se você 
quiser imprimir em um lugar específico 
na tela deve utilizar PRINTO (“PRINT 
arroba””) em vez de PRINT TAB. 


10 CLS 
20 PRINT 846]," BAIXO” 

30 PRINT 6/7," ALTO” 

40 PRINT 8257," ESQUERDA” 


50 PRINT €6280,"DIREITA” 
10 CLS 


20 PRINT 
30 PRINT 


6925," BAIXO” 
E30,"ALTO” 

40 PRINT 6448," ESQUERDA” 
50 PRINT 6502,"DIREITA” 


Os números após PRINTO se refe- 
rem às locações de tela (numeradas da 
esquerda para a direita, no TRS). O 
TRS-80 tem posições numeradas de O a 
1023, e o TRS-Color (32 colunas) de O 
a 511. Eis um programa que calcula as 
notas dos alunos de uma classe: 


5 CLS 
10 PRINT "NOME"; TAB(12);" PROVA” 
;TAB(1B);"ORAL”; TAB(23); 
"EXAME"; TAB (29); "MED" 
20 PRINT €448B,"NOME "; 
30 INPUT NS 
35 PRINT 6448," PROVA”; 
40 INPUT NP 
45 PRINT €6448B,"0ORAL "; 
50 INPUT NO 
55 PRINT 6448," EXAME”; 
60 INPUT NE 
70 LET M= ( (NP+N0*2)/3+NE)/2 
B0 PRINT NS; TAB(14) ;NP;TAB (19); 
NO; TAB(24) ;NE;TAB(29);M 
90 PRINT 
100 FOR 1=1 TO 400:NEXT 1 
110 GOTO 20 


» CLS 

10 PRINT "NOME"; TAB(12);" PROVA" 
;TAB(18);"ORAL”; TAB(23); 
“EXAME”; TAB (29) ; "MED" 
20 PRINT €6896,"NOME "; 

30 INPUT NS 
35 PRINT 86896," PROVA”; 


Colocando um aprstrofe (no Spec 
trum, ou delrando de por o ponto 
cvirquia produz este efeito: 


BENS 
Ha EO ES Ad 
En Sagem 
LAR Ra] 
MENnSAgEm 
MET SRS Em 
BENGAgE ni 
MENS A E lá 
MENSagEem 
Vi do Th A O ta 
BRENSADEN 
WE MOS AE a 
MeEnsSAdgem 
Memo Em 
nensagem 
MENSAGEM 


40 INPUT NP 

45 PRINT €896,"ORAL "; 

50 INPUT NO 

55 PRINT 6896," EXAME”; 

60 INPUT NE 

70 LET M=((NP+NO0*2) /3+NE) /2 
80 PRINT NS; TAB(14);NP;TAB(I9); 
NO; TAB(24);NE; TAB(29):;M 

90 PRINT 

100 FOR I=1 TO 400:-NEXT I 
110 GOTO 20 


A linha 20 exibe os cabeçalhos das 
colunas. As linhas 40 a 70 limpam uma 
linha da tela e perguntam pelos dados 
necessários (PRINTO posiciona a linha 
que pede a informação na penúltima li- 
nha da teia). A linha 80 tabula as infor- 
mações, e a 90 calcula a média. A va- 
riável PA faz a máquina checar se a te- 
la foi preenchida. 





PONTUAÇÃO 


As virgulas e os pontos e virgulas 
controlam a posição do cursor. Agora 
digite: 

10 CLS 

20 PRINT"O CURSOR RETORNARA” 

30 PRINT"SEM O PONTO-E-VIRGULA” 
40 PRINT"MAS COM O PONTO-E- 
VIRGULA "; 

50 PRINT"ACONTECE ISTO” 

Um ponto e vírgula ao final de uma 
linha PRINT obriga o cursor a perma- 
necer onde estava quando terminou de 
imprimir. Acrescente essas linhas: 


60 PRINT"E QUE TAL”, 
70 PRINT"USAR”, 

80 PRINTºVIRGULAS”, 
90 PRINT"?7" 


No TRS-Color: uma vírgula no fim 
de um PRINT faz o cursor saltar para 
a outra metade da tela. TRS-80: cada 








virgula encontrada tabula para a próxi- 
ma posição). 


Os controles de cursor (declaração 
LOCATE), a função TAB e o coman- 
do PRINT com sinais de pontuação ser- 
vem para melhorar a aparência das exi- 
bições na tela do MSX. A maneira mais 
fácil de mostrar uma mensagem é: 


PRINT "BOM DIA!” 


O “BOM DIA" aparecerá à esquerda 
da tela na próxima linha disponível. Se 
PRINT “BOM DIA” estiver na última 
linha da tela, esta rolará para cima, de 
modo a dar espaço à mensagem. Não se 
esqueça de digitar as aspas, ou obterá 
uma mensagem de erro. O resultado do 
comando acima ficará mais claro se vo- 
cê limpar a tela antes: 


10 CLS 
20 PRINT"BOM DIA!” 


A FUNÇÃO TAB 





De todas as instruções de posiciona- 
mento do cursor, a função TAB é, cer- 
tamente, a mais utilizada. Ela se com- 
porta, na tela, como o recurso de tabu- 
lação das máquinas de escrever, posicio- 
nando o cursor alguns espaços a partir 
da borda esquerda da área de texto da 
tela. Sua forma pode ser: 


30 PRINTTAB(15)"BOA TARDE!” 


Você pode colocar, se quiser, um 
ponto e virgula depois do parêntese, 
mas isso não é necessário. Não deve 
existir espaço entre TAB e seu argumen- 
to entre parênteses, cujo valor está no 
ponto inicial do cordão impresso. 

Funções TAB múltiplas podem ser 
utilizadas para posicionar várias obser- 
vações em cada linha da tela. 


30 PRINTTAB(10)"BOA” TAB(20)"TA 
RDE!* 


Neste caso, B é impresso na coluna 
10, e T, na 20 (o valor do argumento 
sempre se refere à distância da borda es- 
querda da área de texto). 

TAB é a abreviação de “tabular'. 
Veja no programa a seguir como essa 
função pode ser útil (ela calcula o qua- 
drado, o cubo, a raiz quadrada e o in- 
verso dos números de 1 a 12): 


10 CLS 

20 PRINT"NUMERO" TAB (10) "QUADRAD 
O" TAB(20)"CUBO"TAB(30)"4do POT” 
30 FORJ=1TOZ0 

40 PRINTJ;TAB(10) J*J;TAB(20)J*J 
*J; TAB (30) J*J*J*J 

50 NEXT 











106 SA da Sd STS E OM ÇÃO MD CS GR SO 


Ao rodar o programa, você verá uma 
tabela de números sendo montada. To- 
da vez que o programa passar pelo la- 
ço, uma outra linha de números será exi- 
bida na tela (TAB permite colocar cada 
número na coluna correta). 


POSICIONE O CURSOR 





Suponhamos que você queira impri- 
mir em um lugar específico na tela, e 
não apenas na próxima linha disponível. 
Neste caso, PRINT TAB não é o mais 
indicado: use LOCATE. 

No MSX LOCATE pode ser usada 
para controlar o posicionamento do cur- 
sor em qualquer ponto da tela, como 
ocorre com os comandos PRINT AT, 
PRINTO e HTAB/VTAB de outras 
máquinas. Tente o programa abaixo: 


10 CLS 

15 LOCATE 14,23 
20 PRINT"SUL” 
25 LOCATE 12,1 
30 PRINTNORTE” 
35 LOCATE 0,12 
40 PRINTCOESTE” 
45 LOCATE 25,12 
50 PRINTPLESTE” 


O programa escreve os pontos car- 
deais junto às quatro margens da tela. 

A declaração LOCATE define, com 
dois números, a próxima posição do 
cursor da tela de textos. O primeiro ar- 
gumento deve ser um número entre O e 
39 e diz ao computador da coluna a ser 
posicionada. O segundo, um número de 
O a 24, indica a posição da linha a ser 
posicionada. Os argumentos que seguem 
LOCATE podem ser números, variáveis 
ou expressões com resultado numérico; 
e somente será considerado o seu valor 
inteiro (não fracionário) para o cálculo 
da posição. 

Assim, para posicionar uma declara- 
ção PRINT em um ponto escolhido, es- 
tabeleça a posição X (para coluna) e Y 
(para carreira) e coloque no programa 
um LOCATE antes do PRINT. 





COMO POSICIONAR ENTRADAS 


As entradas de dados através do co- 
mando INPUT podem ser posicionadas 
da mesma forma que as mensagens que 
usam o comando PRINT: 


10 CLS 
20 LOCATE 10,10: INPUT"SEU NOME” 
NS 
30 LOCATE 12,22:PRINT "OLA, " 
4 o É: adE om 

Esse programa imprimirá a primeira 
instrução na coluna 10 e na linha 10, 
orientando o usuário com uma mensa- 


gem seguida de um ponto de interroga- 
ção, para efetuar uma entrada de dados 
com o INPUT. Qualquer coisa que seja 
digitada será armazenada na variável 
N$. A linha 30 apenas imprime o nome, 
desta vez na coluna 12 da linha 22. O 
LOCATE não precisa aparecer necessa- 
riamente na mesma linha que o INPUT 
eo PRINT. Eis aqui um programa que 
utiliza tanto LOCATE quanto PRINT 
TAB e que serve para calcular e exibir 
as notas dos alunos de uma classe: 


10 CLS:KEYOFF 

20 PRINT"NOME"TAB(10)"NOTA I"TA 
B(20)"NOTA 2" TAB (30)"MEDIA” 

25 FORX=1TO1S 

30 LOCATEO, 22: INPUT"NOME “;NS 
dO LOCATEO, 22: INPUTCNOTA 1" ;N1 
50 LOCATEO, 22: INPUT"NOTA 2" ;N2 
60 LOCATEO,X:PRINTNS; TAB (10)N1; 
TAB (20) N2; TAB (30) (NI+N2) /2 

70 NEXT 


A linha 20 exibe os cabeçalhos das 
colunas no topo da tela. As linhas 30 a 
50 perguntam pelos dados necessários. 
LOCATE é necessário para posicionar 
a linha que pede a informação na penúl- 
tima linha da tela; sua não inclusão de- 
sorganizaria a tabela que está sendo 
montada na parte de cima. A linha 60 
tabula a informação que você acabou de 
fornecer à máquina e calcula a média. 





PONTUAÇÃO 


O uso correto dos sinais de pontua- 
ção do PRINT é importante quando se 
está exibindo informações na tela. As 


dvirguila [MPrEIMO à Mensagem Em 
colunas. deste Jeito: 


nenSagem 
BEnNGAGEem 
NENSADgEm 
MPR SAEM 
mensagem 
mensagem 
mensagem 
MENSAGEM 
mensagem 
nEnNSaAgEm 
mENSagEM 
nPnRSagEM 
RMENSEgEM 
mensagem 
neem gar m 
mensagem 


mensagem 
mensagem 
NEMNSagEeEmM 
mensagem 
mensagem 
mensagem 
mensagem 
nensagem 
MENSAGEM 
mensagem 
MENSAgEmM 
nensagem 
mensagem 
meto 
nensagem 
nENSaAgEm 








vírgulas e os pontos e vírgulas contro- 
lam a posição do cursor (o quadrado ou 
o sinal de sublinha que assinala onde 
aparecem os caracteres). 

10 CLS | 

20 PRINT"O CURSOS MUDA DE LINHA 


30 PRINT"SEM O PONTO-E-VÍRGULA” 
40 PRINTCMAS, COM ELE ”; 
50 PRINT"TUDO MUDA!“ 


Quando se inclui um ponto e vírgula 
ao final de uma linha PRINT no pro- 
grama, O cursor não retorna ao início da 
próxima linha: ele permanece exatamen- 
te onde estava quando terminou de im- 
primir. A próxima declaração PRINT 
continua diretamente depois da última 
declaração. Acrescente essas linhas ao 
programa e rode-o: 


60 PRINT 

70 PRINT"E QUE TAL”, 

80 PRINTCUSAR VÍRGULAS?”, 
90 PRINT"E VER”, 

100 PRINT”O QUE ACONTECE?” 


Você provavelmente já conhece este 
comando: 


PRINT "BOM DIA!” 


O seu computador imprimirá a men- 
sagem na primeira linha disponível, co- 
meçando no limite esquerdo da tela. Se 
você digitar o programa: 


10 HOME 
20 PRINT "BOM DIA!” 


verá que a tela será apagada e que a sua 
mensagem aparecerá na primeira linha, 
como se tivesse dado uma folha de pa- 
pel em branco ao computador. 

Mas é possível fazer com que a men- 
sagem apareça numa posição diferente. 
Adicione essa linha: 


30 PRINT TAB( 15)"BOA TARDE!” 


A mensagem aparece centralizada na 
tela. A primeira letra foi colocada na co- 
luna 15 da linha de impressão. A tela de 
textos do Apple II tem 24 linhas de qua- 
renta colunas de largura, cada. Você 
também pode usar mais que um TAB 
por linha: 

40 PRINT TAB( 10)"DIA”; TAB( 
20)" TARDE”; TAB( 30) "NOITE" 
E se você quiser pular linhas? É fá- 


cil: experimente adicionar as linhas abai- 
XO ao seu programa: 


25 PRINT 
35 PRINT 


Um comando PRINT sem nada de- 
pois significa simplesmente uma linha 
em branco na tela. 
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CRRREREASEASNOS 
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Nas declarações PRINT e INPUT, as vírgulas indicam que a informação será exibida em 
campos. O ZX-81, o Spectrum e o TR$-Color têm dois campos de dezesseis colunas; 
o MSX eo Apple II, três campos de oito colunas; já o TRS-80 conta com quatro campos. 


“HTABE VTAB 





O Apple II tem outro sistema para 
posicionar mensagens na tela. 


10 HOME 


30 HTAR 15 PRINT "BOA TARDE" 


Observe que o efeito é semelhante ao 
do PRINT TAB. Acrescente a linha a 
seguir e rode o programa novamente: 


20 VTAB 15 


A sua mensagem estã agora no cen- 
tro da tela. Com esses dois comandos, 
HTAB (abreviatura de horizontal tabu- 
tation) e VTAB (vertical tabulation), 
você pode colocar o cursor (e suas men- 
sagens) em qualquer lugar da tela. 


TABULE AS ENTRADAS 





As entradas de dados através do IN- 
PUT podem ser posicionadas da mesma 
forma que as mensagens com PRINT: 


10 HOME 

£0 VTAB 10: HTAB 10: INPUT "SE 
U NOME? ";NS5 

30 VTAB 22: HTAB 12: PRINT "OL 


A Tide a 


A primeira instrução será impressa na 
coluna 10 e na linha 10, orientando o 
usuário com uma mensagem, seguida de 
um ponto de interrogação, para entrar 
dados com o INPUT. Qualquer coisa 


que seja digitada será armazenada na 
variável N$. A linha 30 imprime o no- 
me, desta vez na coluna 12 da linha 22. 
A ordem em que VTAB e HTAB apa- 
recem no programa não é importante. 
Se você não quiser um ponto de inter- 
rogação, omita-o da linha 20. 


INPUT"ENTRE O CUSTO 
custo 


EM CZ3:": 


Um ponto de interrogação prejudica- 
ria a clareza da tela. O programa abai- 
xo serve para calcular e exibir as notas 


dos alunos de uma classe: 

LO HOME 

20 INPUT "QUANTOS ALUNOS? ";A 
30 HOME PRINT "NOTAIL”,"NOTA? 


"+ “MEDIA” 
40 FOR J = 1 TOA 
50 VTAB 21: INPUT "NOTAL? ";N1 


60 VTAB 21: INPUT "NOTA2Z? ";N2 


70 VTAB ) + 3: PRINT N1,N2, (N1 
+ N2) / 2 


BO NEXT 


A linha 20 exibe os cabeçalhos das 
colunas no topo da tela. As linhas 40 a 
TO limpam uma linha e perguntam pe- 
los dados necessários. O HTAB e o 
VIAB antes do INPUT são necessarios 
para posicionar a linha que pede a in- 
formação na penúltima linha da tela. 

A linha 80 tabula a informação que 
você acabou de fornecer à máquina, e 





a linha 90 calcula a média. 

A média das notas pode dar um re- 
sultado com muitas casas decimais (uma 
dizima periódica, por exemplo). Ora, es- 
se resultado não caberia na linha de te- 
la do Apple II, extravasando para a li- 
nha seguinte e “estragando” o aspecto 
da tela. Isso pode ser resolvido por meio 
de uma operação de arredondamento 
para que o resultado contenha apenas 
uma casa decimal: multiplicamos a raiz 
quadrada por 1000, tomamos o valor in- 
teiro do resultado, e o dividimos por 
1000. Vejamos, por exemplo, a média 
1,654321: multiplicada por 1000 ficaria 
1654,321; seu inteiro é 7654 que divi- 
dido por 1000 ficaria 7,654, Se você qui- 
ser um resultado com duas casas deci- 
mais, ao invés de três, multiplique e di- 
vida por 100. Substitua a linha: 


70 VTAB J + 3: PRINT N1,N2, 
INT((N1I+NZ)/2/10)*10 


PONTUAÇÃO 





Em BASIC, a pontuação oferece três 
possibilidades: a vírgula, o ponto e 
virgula e a ausência de pontuação. O 
ponto e vírgula faz com que o cursor 
não mude de posição após imprimir 
uma mensagem na tela, o que resulta em 
uma justaposição, se várias delas forem 
impressas em sequência: 

10 HOME 
20 À = 10:B = 20:€C = 30 
30 PRINT A;B;C 


A virgula produz um efeito bem di- 
ferente. Tente adicionar essa linha e ve- 
Jd o que acontece: 


40 PRINT A,B,C 


A tela, neste caso, é dividida em três 
colunas de tabulação automática e tu- 
do que for mostrado na tela obedecerá 
a essa tabulação, exceto se algum dado 
exceder o tamanho da coluna. 

Neste programa mostramos como a 
tabulação automática com a virgula po- 
de ser util (ele calcula o quadrado e o 
cubo dos números de | a 20): 


LO HOME 

20 PRINT "NUMERO”,"QUADR”,"CUB 
o" 

25 PRINT 

30 FOR J = 1 TO Z0 


40 PRINT J,J*J,J*IJ*O 


90 NEXT 


Você verá uma tabela de números 
sendo montada. Toda vez que o progra- 
ma passar pelo laço uma outra linha de 
números será exibida na tela. A utiliza- 
ção do TAB permitirá que você coloque 
cada número na coluna correta. 








Se você gosta de enfrentar desafios, 
aprenda a tornar mais complicados 
seus jogos de labirinto, incorporando 
a eles níveis crescentes de 
dificuldade. E veja quanto tempo leva 
para encontrar um tesouro oculto no 
esconderijo de um sangúinário pirata. 


Muitos programas pedem que se es- 
colha um nível de dificuldade, antes de 
começar o jogo. Essa exigência permite 
que tanto os iniciantes quanto os espe- 
cialistas possam utilizar o mesmo jogo, 
sem que este se torne excessivamente fá- 


cil ou difícil. Existem muitas maneiras 
de se introduzir níveis de dificuldade em 
um jogo, dependendo da sua natureza. 
Por exemplo: podemos mudar o núme- 
ro de inimigos enfrentados pelo joga- 
dor; desenvolver a ação em diferentes 
velocidades; conceder maior ou menor 
tempo para o jogo; variar os problemas 
a serem encontrados pelo jogador, e as- 
sim por diante. 

Desta vez, vamos aprender a incor- 
porar níveis de dificuldade a um progra- 
ma de jogo de labirinto. O jogo esco- 
lhido emprega uma entre duas maneiras 
possíveis de se produzir níveis de difi- 
culdade — o método a ser utilizado em 
detalhe dependerá do modelo de seu 


COMO DESENHAR UM 
LABIRINTO ALEATÓRIO 
DUAS MANEIRAS DE TORNAR 
O JOGO MAIS DIFÍCIL 
DESCUBRA O TESOURO 


computador. O jogo não envolve ape- 
nas a tentativa de se achar o caminho 
através do labirinto, mas também uma 
limitação no tempo de que dispõe o jo- 
gador para guiar um homenzinho até 
um tesouro desenhado em algum lugar 
do labirinto. Não apresentaremos aqui 
uma versão do programa para micro- 
computadores da linha ZX-81, pois o jo- 
go ficaria excessivamente lento. Tam- 
bém não será apresentada versão para 
micros da linha TRS-80, devido à baixa 
resolução gráfica do vídeo desses mode- 
los. 

Existem basicamente duas formas de 
aumentar a dificuldade de resolução de 
um labirinto: ou se altera o limite de 
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tempo, ou se varia a complexidade do 
labirinto. A razão pela qual devemos es- 
colher métodos diversos, de acordo com 
o tipo do computador, tem a ver com 
a maneira como o labirinto é produzi- 
do. Esse exemplo mostra que você pre- 
cisa decidir o caminho a seguir, quan- 
do quiser inventar jogos com diferentes 
niveis de dificuldade. 





AS VIDAS 


Uma das maneiras de tornar mais ex- 
citante um jogo de labirinto consiste em 
impor algum tipo de penalidade ao jo- 
gador que esgota seu tempo sem encon- 
trar o tesouro. Pode-se, por exemplo, 
fazer com que ele perca alguns pontos 
na contagem; mas a penalidade mais co- 
mum é obrigá-lo a perder uma “'vida” 

Nesse jogo daremos três “vidas”' ao 
jogador: se ele não achar o tesouro den- 
tro do limite de tempo, em três tentati- 
vas, O jogo terminará. 


LABIRINTOS ALEATÓRIOS 





O jogo é baseado em uma sub-rotina 
de produção de labirintos aleatórios (ou 
seja, de desenho gerado ao acaso). É um 
programa muito interessante, pois dese- 
nha um labirinto totalmente diferente de 
cada vez, evitando assim que você tenha 
de projetar uma série enorme desses de- 
senhos. Já mostramos, em um artigo an- 
terior, como projetar labirintos, utili- 
zando linhas DATA para incorporar o 
seu desenho ao programa. Imagine, en- 
tão, como seria complicado incluir vá- 
rios labirintos ao programa, usando es- 
sa técnica. 

A geração aleatória de labirintos é 
muito mais fácil do quê isto, embora 

ente algumas dificuldades comple- 






ojetá-los, por exemplo, seria desenhar 
blocos gráficos E iormanio na tela. 
O problema, neste caso, é que nada ga- 
rante que se formem caminhos interio- 
res entre os blocos; ou seja, pode não 
surgir um verdadeiro labirinto. Assim, 
caso escolhesse esse método, você teria 
que encontrar maneiras de checar a exis- 
tinia. Bde: no mínimo, uma saída. 





LABIRINTOS E CAMINHOS AO ACASO 


O melhor modo de se desenhar labi- 
rintos aleatórios é inventar um progra- 
ma que trace caminhos ao acaso, 
incluindo-os depois no desenho final. O 


programa proposto a seguir foi desen- 
“volvido de tal forma que a linha do ca- 


nentares es. Uma maneira óbvia de 





“minho aleatório fica contida no interior 
da moldura desenhada na tela. Não é 
permitido que a linha cruze com ela mes- 
ma. Quando o caminho aleatório não 
puder prosseguir, o programa fará o 
mesmo percurso de volta. Ele faz isso 
passo a passo, examinando a área em 
torno do caminho anteriormente traça- 
do, até encontrar espaço livre para pros- 
seguir. Quando esse espaço é encontra- 
do, o programa inicia um outro desvio 
no caminho aleatório, prosseguindo por 
ele até ser imobilizado novamente, e as- 
sim por diante. O computador continua 
tentando desenhar novos caminhos até 
que toda a tela seja preenchida; nesse 
momento, ele volta ao ponto de partida. 

Quando o programa acaba de dese- 
nhar o labirinto, apenas um caminho li- 
vre aparece na tela; esse caminho pode 
ser facilmente distinguido, pois os des- 
vios não são muito complicados. O la- 
birinto também será solucionável atra- 
vés da regra da mão direita. De acordo 
com essa regra, é sempre possivel sair de 
um labirinto, seguindo-se a sua parede 
direita (ou esquerda, tanto faz, desde 
que seja sempre a mesma). Para impe- 
dir que alguém aplique a regra, basta 
construir algumas ilhas no labirinto, 
obrigando o pobre jogador a ficar dan- 
do voltas sem fim. Assim, após desenhar 
um labirinto, o programa traça um cer- 
to número de blocos aleatórios que fa- 
zem com que o desenho pareça mais 
complexo, impedindo que alguém recor- 
ra à regra da mão direita. 

Uma vez digitado, guarde o progra- 
ma em fita ou disco, pois o próximo ar- 
tigo mostrará como acrescentar a ele al- 
guns efeitos sonoros. 


O programa para os micros da linha 
Spectrum começa estabelecendo os blo- 
cos gráficos, introduzindo as variáveis 
e fazendo uma preparação geral para 
o jogo. Digite essa seção do programa, 
mas não a execute ainda: 


10 FOR n=0 TO 23: 
POKE USR “a"+n,a: 
20 LET hs=0 


READ a: 
NEXT nm 


30 INPUT "Selecione nivel [1 
a 6) "i;ta 

40 LET ta=1100-100*ta 

50 BORDER 1: PAPER 1: INK O: 
CLS + INK 7 

60 LET s=0D: LET vidas=3 

70 PRINT BRIGHT 1; PAPER 6: 
INK 2;" SCORE RECORDE 


490 DATA 24,24,60,82,82,24,36, 
30,12/,65,93,85,81,95,64,127, 
24,24,255,255,24,24,24,24 





a) | | | 
| 
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A linha 10 define os blocos gráficos 
para o jogo — um homenzinho, o tesou- 
ro e uma cruz — por meio da leitura dos 
dados na linha 490. A variável que ar- 
mazenará o recorde — HS (high score) 
— é zerada na linha 20. 

A seguir, pede-se ao Jogador para es- 
colher um nível de dificuldade de | a 6 
(TA). Quanto menor for o número, 
mais baixo será esse nivel (e, portanto, 
mais fácil será o jogo). Você verá que 
na linha 40 os números mais baixos es- 
tabelecem tempos maiores, e os núme- 
ros mais altos, tempo menores. 

As cores da tela e dos gráficos são es- 
tabelecidas na linha 50. A linha 60 zera 
o placar e atribui as três “vidas” ao jo- 
gador. A linha 70, finalmente, exibe as 
palavras ESCORE (contagem) e RE- 
CORDE, juntamente com os espaços 
em branco para colocar os números cor- 
respondentes, na tela. 





DESENHE O LABIRINTO 


Agora, digite essas linhas: 


80 FOR n=22561 TO 22589: POKE 
n, 16: POKE n+640, 16: NEXT n 
90 FOR n=1l TO 21: POKE 22528+ 
n*32,16 : POKE 2255B+n*32,16 
POKE 22559+n*32,9: NEXT n 
100 LET b=22593: LET a=b 


110 DIM a(4): LET a(l)=-1: LET 
a(2)== 32: LET a(3)j=l: LET a(4á 
)=32 

120 POKE a,56 

130 LET 3=INT (RND*4)+1]- LET 9 
“0 

140 LET b=ata())*2: IF PEEK b= 
B THEN POKE b,3): POKE atal(j). 
56: LET a=b GOTO 130 

150 LET 9=3+1): IF 3=5 THEN 

LET =) 

160 IF 3<>g THEN GOTo 140 

170 LET I=PEEK a: POKE adob: 


te -IES THEN LET az=á=aly)ez: 
GOTO 130 

180 POKE 226259456 

190 FOR n=l'To 20 

200 LET k=22528+64* (INT (RND*9 


J+2)d INT (RND*29)+1 


210 POKE k,56: NEXT n 


A borda do labirinto é cagada nao 
linhas 80 e 90, colocando-se o código 16 
por meio de c 
de memória de vídeo. Esse código defi- 


ne a cor de fundo (PAPER), gerando 


portanto uma borda constituída de blo- | 
cos vermelhos. As linhas 100 a 180 de- 
senham o labirinto. Não caia na tenta- 
ção de interromper o programa e lim- 
par a tela nesse ponto. Se você fizer is- 
so, O labirinto se perderá, pois ainda está 
armazenado apenas no arquivo de atri- 
butos. Para completar o labirinto, as li- 
nhas 190 a 210 exibem vinte quadrados 
em posições aleatórias dentro do labi- 





omandos POKE nas áreas E 















340 IF a$="k” AND ATTR 
Ep SO THEN. 
pao: RIA Ea ué “AND ATIR, 
>=5 LET y=yédo 


TT 
= y - & 


rinto. Se um quadrado '““cair”” em cima 
de uma parede, uma passagem será au- 
tomaticamente aberta. 





COMO CRIAR UM JOGO 


A próxima seção do programa diz 
respeito ao jogo em si (não tente ainda 
rodar o programa): 


220 LET x=15: LET y=10 

230 LET tx=INT (RND*15)*2+1 
240 LET ty=INT (RND*10)*2+2 
250 PRINT BRIGHT 1; PAPER Z; 
AT O,7;5s;AT O, Z4:hgs 

260 POKE 23672,0: POKE 236/3,0 
270 PRINT FLASH ll; PAPER 3; 
INK 6;AT ty, tx;CHRS 145 

280 PRINT INK 2; PAPER /;AT y 
x; CHRS 144 

290 IF PEEK 21672+256*PEEK 
23673>ta THEN GOTO 390 
300 IF INKEYS="" THEN 
290 
310 


GOTO 


LET aS=INKEYS: 
LET sy=y 

320 IF aS="2" AND ATTR 
2=S56 THEN LET x=x-1 
330 IF aõS="x" AND ATTR (y 
2=56 THEN LET x=x+1. 


LET sa=%: 
(yo  X=1) 


A+1) 


ET v=y-1 





Mytloa) 


A posição inicial do homenzinho é es- 
tabelecida p la linha 220; o homenzinho 


AA no 


Porde que a Nha 260 ca 


CHRS$ 144 e CHRS$ 145 das li- 
nhas 270 e 280 são utilizados | 
para exibir os blocos gráfi - 

cos predefinidos pa (k 
esses códigos. O CHR! 
é empregado aqui porque é mais fácil de 
ser visto na listagem do pr 
bora você possa utilizar o método alter- 


————s e 





DD dee SRS 


nômetro interno por meio de dois // 





nativo através de letras, como foi expli- 
cado anteriormente. As linhas restantes 
(ou seja, da 300 à 380) se ocupam com 
a movimentação do homenzinho no la- 
birinto. As linhas 320 a 350 verificam se 
está sendo pressionada a tecla adequa- 
da, e se o próximo quadrado para a mo- 
vimentação é um caminho e não uma 
parede. O teste utiliza o ATTR, que já 
foi explicado anteriormente. A linha 260 
anula a última posição do homenzinho 
e o exibe novamente em uma posição di- 
ferente. A linha 370 testa se o homenzi- 
nho atingiu O tesouro. Se ele atingiu, a 
contagem de pontos é aumentada, an- 





tes de se sortear e exibir um outro tesou- 
ro a ser encontrado, 


A MORTE DO PIRATA 





A última seção final do programa é 
apresentada a seguir. Agora, finalmen- 
te, você pode rodá-lo. 


4190 PRINT FLASH 1; PAPER O; 
INK 5;AT y,x;CHHRS 146 

400 LET vidas=vidas-l: FOR 
TO 200: NEXT £: IF vidas>0 
THEN GOTO 260 
410 IF s>2hs THEN 


E =] 


LET hs=s 
































420 PRINT BRIGHT 1; PAPER 2; 
AT U,24;hs 
430 PRINT FLASH L;AT 10,1;" P 


ressi;one qualquer tecla para 
jogar de novo *" 


440 IF INKEYS<>"" THEN GOTO 
440 

450 IF INKEYS="" THEN GOTO 
450 

460 GOTO 30 

470 LET s=stta-PEEK 23672+256* 
PEEK 23673: GOTO 230 


Quando o jogador perde uma “vi- 
da”, e antes mesmo que a linha 400 sub- 
traia 1 ao total de “vidas”, uma cruz 
piscante (CHRS 146) é exibida pela li- 
nha 390. Existe ainda uma pausa antes 
que o jogo retorne à linha 260, a qual 
coloca novamente o relógio em O, de 
modo a ficar pronto para outra tentati- 
va de atingir o tesouro. Esse retorno, 
evidentemente, só ocorrerá se o Jogador 
ainda tiver mais “vidas” para usar. 

Se não restar nenhuma “'vida””, a li- 
nha 410 compara o placar final com o 
último recorde. O recorde registrado é 
alterado quando o escore for maior. Em 
ambos os casos, a linha 420 exibe o re- 
corde obtido até o momento. 

A linha 410 é necessária para blo- 
quear O jogo, caso o jogador ainda es- 
teja pressionando uma das teclas de mo- 
vimentação. A linha 420, por sua vez, 
bloqueia o programa até que uma nova 
pressão em qualquer tecla assinale que 
o jogador quer prosseguir. 

A linha 470 calcula o escore, logo 
após o encontro do homem com o te- 
souro. O teste está na linha 370. 
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A tela de texto proporciona a manei- 
ra mais fácil de se desenhar um labirin- 
to nos micros da linha TRS-Color. Mas 
os labirintos assim obtidos seriam mui- 
to simplificados por causa do grande ta- 
manho e do pequeno número de blocos 
gráficos disponíveis. 

Em vez disso, O programa aqui pro- 
posto desenha os labirintos na tela com 
gráficos de alta resolução. Embora seja 
mais complicado do que o que sé pode 
conseguir na tela de textos, ele tem a 
vantagem de desenhar labirintos de di- 
ferentes complexidades, fornecendo as- 
sim vários níveis de dificuldade. 

Imagine que o caminho seja forma- 
do por uma série de blocos quadrados. 
Se você quisesse desenhar um labirinto 
bem simples, bastaria escolher um blo- 
co grande, ao passo que, se quisesse um 
labirinto mais complexo, deveria optar 
por um bloco de menor tamanho. 

A primeira seção do programa intro- 
duz as variáveis e prepara o computa- 


7 PROGRAMAÇÃO DE JOGOS 


dor para desenhar labirintos aleatórios. 
Digite o programa, mas não execute ain- 
da, senão você obterá um erro do tipo 
UL — linha indefinida —, quando o 
programa tentar executar o GOSUB 
1000 da linha 110. 


10 PMODE 4,1 

20 CLS: PRINT €193,"NIVEL DE DIF 
ICULDADE (0-5)”; 

30 LS$=INKEYS:IF L$<"0” OR L$>"5 
" THEN 30 

40 BS=12-VAL (LS) :NX=2XINT(.5+12 
B/BS) :NY=2XINT(.5+96/B8S) 

50 SX=250-BS*NX:57=190-BS*NY 

60 DIMP(NX,NY),A(5),B(5) 

70 PCLS 5: DRAW"S"+STRS(INT(8.5 
-4*4VAL (LS) /5)) +" COBMO, OBR2BDNEN 
GD3NFG” 

80 GET (0,0)-(BS-1,BS-1),A,G 

90 GET(10,10)-(BS+9,B5+9),B,G:€ 
OLOR 5,0 

100 CLS:PRINT €226," GERANDO LAB 
IRINTO DE NIVEL ";LS 

110 GOSUB 1000 

120 GOTO 120 


A linha 10 diz ao computador para 
utilizar o quarto modo gráfico (PMO- 
DE 4) para todo o programa. A tela de 
alta resolução não é ligada nesse está- 
gio, A linha 20 exibe, então, a mensa- 
gem NÍVEL DE DIFICULDADE (0 - 


5). 

L$ é o nível que o jogador escolheu. 
O valor numérico de L$ — VAL (L$) 
na linha 40 — regula o tamanho do blo- 
co, a extensão do caminho e a comple- 
xidade do labirinto. O INKEYS$ na linha 


30 significa que o jogador não precisa 
digitar mais que o único dígito em res- — 


posta à pergunta, e que o programa com 
tinua sem que ele precise pressionar 
<ENTER>. 
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Na linha 40, o BS é o tamanho do 
bloco gráfico, em pixels. Esse tamanho 
pode variar de sete a doze pixels. NX é 
o número de blocos na direção horizon- 
tal, e NY é o número de blocos na dire- 
ção vertical. 

Antes de desenhar o labirinto na te- 
la, o computador calculará sua aparên- 
cia final e colocará essa informação no 
conjunto P, o qual é dimensionado 
(DIM) na linha 60. O conjunto A con- 
tém o formato do homenzinho, e o con- 
junto B, um espaço em branco, de mo- 
do a provocar sua animação gráfica. O 
homenzinho é desenhado pela linha 70. 
Nesse programa o homenzinho será de- 
senhado em tamanho maior, quando o 
caminho do labirinto for mais largo, e 
menor quando for mais estreito. 

Agora que o homenzinho foi dese- 
nhado, a linha 80 o coloca no conjunto 
A por intermédio de um comando GET, 
e a linha 90 preenche o conjunto B de 
branco. Nas lições anteriores, quando 
um espaço em branco era utilizado em 
um jogo, não era necessário coloçar na- 
da no conjunto: tinhamos apenas um 
conjunto vazio. Desta vez, é necessário 
um espaço em branco, de modo a com- 












DO e ger e 
À. 





















binar com a cor de fundo do caminho. 

O comando COLOR na linha 90 as- 
segura que o labirinto será desenhado 
mais tarde na cor correta (de outro mo- 
do você estaria desenhando um labirin- 
to preto sobre um fundo preto). 

A linha 100 diz ao jogador que o la- 
birinto está sendo produzido; pode de- 
morar algum tempo até o desenho apa- 
recer. 


DESENHE O LABIRINTO 





Agora digite a sub-rotina de produ- 
ção do labirinto — chamada pela linha 
110 — e você poderá rodar o programa: 


1000 FOR J=0 TO NX:P(J,NY)=6:P( 
J,0)=6:NEXT 

1010 FOR J=0 TO NT-2:P(0,J)=6:P 
(NX, J) =6:NEKT 

1020 X=2:Y=2:LX=2:LY=2 

1030 J=RND(4)-1:6=J 

1040 Y=LY+2*((J=0)-(]J=2)) :X=LX+ 
2*((9=3)-(J=1)) 

1050 IF P(X,Y7)=0 THEN P(X,Y)=J+ 
L:P((X+LX)/2, (Y+HLY)/2)=5:LK=K:L 

Y=Y:GOTO 1030 

1060 J=(J+1)AND 3: IF J<>G THEN 
1040 

1070 J=P(LX,LY)-1:P(LX,LY)=5: IF 
J<4 THEN LK=LX-2*((J=3)-(J=1)) 
“LY=LY-2*((J=0)-(J=2)):GOTO 103 
0 

1080 FOR J=0 TO 20:P(2+2*RND((N 

X-3)/2), 1+RND(NY-3))=5:P(1L+ARND( 

NX-3), 2+2*BND ((NY-3)/2))=5:NEXT 
1090 SCREEN 1,1:PCLS 

1100 FOR J=2 TO NX-2:FOR K=2 TO 
NY-2 

1110 IF P(J,K)=5 THEN LINE (J*BS 

+5X,K*B5+5Y)- ((J+1) *BS+5X-1, (K+ 
1) *BS+5SY-1), PSET,BF 

1120 NEXT K,J:RETURN 


As linhas 1000 a 1080 “desenham” 
o labirinto na memória do computador 


É armazenam a sua forma no conjunto 
P — cada elemento do conjunto corres- 
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ponde a um bloco do labirinto, A sub- 
rotina armazena o número 5 em P onde 
quer que exista um caminho, e o núme- 
ro 0, se existir uma parede. Uma vez que 
E labirinto tenha sido armazenado em 

P, a linha 1090 liga a tela de alta reso- 
lução e a deixa pronta para a execução 
do desenho. 

As linhas 1100 e 1120 exibem o labi- 
rinto na tela mediante a verificação dos 
conteúdos de P. Quando um 5 for en- 
contrado, um quadrado branco será im- 
presso. 





MOVIMENTO, TESOURO, VIDAS 


Agora você precisa de um jogo para 
acompanhar o seu labirinto aleatório, 
Digite a próxima seção do programa, 
mas não o rode porque ele chamará uma 
sub-rotina que ainda não existe. 


120 K=2:Y=2:LK=2:LY=2:Tl=800:L!] 
=3 

130 TIMER=O 

140 X1=1+AND(NX-3) :TI=1+4RND(NYT- 
3):IF P(X1,Y71)=5 THEN P(XL,YIL)= 
7 - DRAW "S4COBM"+STAS (SX+XIPBS)+ 
" "+STBS(SY+rY1*BS)+"BFR5D5L3UIEK 
D”" ELSE 140 

150 X1=X*BS+5X:;Y1l=Y*BS+5SY 

160 PUT(XI,Y1)-(X1+BS-L,Z1+BS-1 
) ,&, PSET 

170 IF PEEK (338)=251 THEN T=Y- 
1 

180 IF PEEK (342)=253 THEN Y=Y+ 
1 

190 IF PEEK (340)=247 THEN X=X- 
1 

200 IF PEEK (338)=247 THEN X=XK+ 
1 

210 IF P(X,Y)=7 THEN F=1:P(X,Y) 
=5: GOTO 230 

220 IF P(X,Y7)<>5 THEN K=LX:Y=LY 
“GOTO 170 

230 IF X<>LX OR Y<2LY THEN PUT 

(X1,Y1)-(X1+ES-1,Y1+B8-1),B,PSE 
T:LX=X:LY=Y:FOR P=1 TO 68:NEXT 

240 IF F=1 THEN F=D:SC=5C+(TI-T 
IMER):TI=TI-10:GOTO 130 

250 IF TIMER >TI THEN GOSUB 500 
: IF LI<1 THEN 100 

260 GOTO 150 


É flinha 120, que substitui a linha 120 
à seção anterior, contém as variáveis 
q partir das quais é calculada a posição 

3 homenzinho. X, Y é a localização 
atual do Homenzinho, e LX e LY, sua 
time or porém, em virtude da 


devem ser ligeiramente aj justados um 
pouco antes de o homenzinho aparecer 
na tela. TI é o limite de tempo para des- 
cobrir o tesouro. Esse tempo limite é de 
dezesseis segundos. Se o homenzinho 
não tiver encontrado o tesouro, quan- 


do o tempo se esgotar, perderá uma ““vi- 


da”. No início do jogo, o jogador tem 
três “vidas” — LI=3. 

O cronômetro interno do computa- 
dor é zerado na linha 130, antes que a 
linha 140 selecione uma posição aleató- 
ria para o tesouro. O elemento corres- 
pondente em P é examinado para que 
haja certeza de que nesse lugar há um 
caminho e não uma parede, Se o tesou- 
ro estiver em um caminho, o valor do 
conjunto será modificado de 5 para 7. 
A última parte da linha desenha o tesou- 
ro no labirinto. 

A posição do homenzinho é calcula- 
da na linha 150, levando-se em conside- 
ração a largura do caminho, que é o ta- 
manho do bloco BS, A linha 160 colo- 
ca o homenzinho em posição. 

As linhas 170 a 220 examinam o te- 
clado por meio de comandos PEEK, de 
modo a permitir a movimentação do pi- 
rata no labirinto. Como não é possivel 
deixá-lo atravessar paredes, a linha 220 
o mantém dentro do caminho. A linha 
210 verifica se o tesouro foi encontra- 
do, examinando o elemento correspon- 
dente em P para o número 7. Se o com- 
putador o achar, o ''indicador de desco- 
berta”” (F) será igualado a 1. 

A linha 230 movimenta o pirata. O 
espaço em branco é colocado, com o co- 
mando PUT, sobre a última posição do 
personagem, e sua localização atual 
torna-se a última posição. 

A linha 240 calcula o escore, caso o 
tesouro tenha sido encontrado. O limi- 
te de tempo é diminuído então de 10 se- 
gundos. O F volta ao 0, e o programa 
retorna para zerar o cronômetro. O pro- 
grama continua, redesenhando o tesou- 
ro em outro lugar, deixando o pirata no 
mesmo ponto em que estava quando o 
último tesouro foi encontrado. 

Caso o tesouro demore muito a ser 
encontrado, a linha 250 chamará a sub- 
rotina que se inicia na linha 500, Se, 
mesmo não tendo achado o tesouro, o 
homenzinho ainda dispuser de algum 
tempo, a linha 260 retornará ao progra- 
ma, calculando sua nova posição. 


A EXIBIÇÃO DO ESCORE 





Esta é a sub-rotina final. Ela exibirá 
o escore e o número de ''vidas””, depois 
que uma ''vida”' for perdida: 


500 CLS:SCREEN 0,0:LI=LI-1 

510 PRINT €106,"NIVEL=";LS 

520 IF LI>O THEN PRINT €202,"VI 
DAS="; 

530 PRINT €29B8,"SCORE=";SC 

540 IF LI>O THEN FOR J=1 TO 600 
0:NEXT: TIMER=0: SCREEN 1, 1:RETUR 


N 
550 PRINT €358,"QUER OUTRA VEZ 
(S/N) ?” 



























158 


Um pirata à procura de um fabuloso tesouro no labirinto do MSX, 


560 AS=INKEYS:IF AS<>"S" AND AS 
<>"N” THEN 560 
270 IF AS="5" 
280 END 


Agora você pode rodar o programa. 
Se uma ''vida'' for perdida, o progra- 
ma religa a tela de texto — SCREEN 
0,0. A linha 500 também diminui de 1 
; número de ''vidas" restantes do joga- 

or. 

As linhas 810 a 530 exibem o nível de 
dificuldade, o número de “'vidas” res- 
tantes (se o Jogo continuar) e a conta- 
gem de pontos. Se ainda sobrarem al- 
gumas ''vidas””, a linha 540 introduzirá 
uma pausa antes de zerar o cronômetro, 
religando a tela de alta resolução e re- 
tornando à sub-rotina. 

As linhas 550 e 580 perguntam se o 
jogador quer tentar de novo, e ele ou pá- 
ra o programa ou roda novamente. O 
RUN é utilizado na linha 570 para lim- 
par P para um novo labirinto. 


THEN RUN 


A versão do programa para os micros 
da linha MSX desenha os labirintos na 
tela com gráficos de alta resolução. Em- 
bora mais complexa do que o programa 
para se desenhar na tela de textos, ela 
tem a vantagem de poder traçar labirin- 
tos de diferentes complexidades, forne- 
cendo assim uma variação no nível de 
dificuldade. 

O caminho aleatório é formado por 
uma série de blocos quadrados. Se você 
quisesse desenhar um labirinto bem sim- 
ples, bastaria escolher um bloco gran- 
de, ao passo que, se quisesse um labi- 
rinto mais complexo, teria que optar por 
um bloco de menor tamanho. 


7 





A primeira seção do programa intro- 
duz as variáveis e prepara o computa- 
dor, de um modo geral, para desenhar 
labirintos aleatórios. Digite o programa, 
mas não o execute ainda, pois não apa- 
recerá nada na tela, por enquanto. 


10 SCREEN O 

20 LOCATE 2,11:PRINT "Nível de 
dificuldade (0-5) 7" 
30 LS=INKEYS: IF L$<"0” 
” THEN 30 

40 BS=13-VAL (LS) :NX=2*INT(.5+12 
B/BS) :NY=2*INT(.5+96/B8S) 

50 SX=250-BS*NX:SY=190-BS*NY 

60 DIM P(NX,NY) 

70 FOR I=1 TO 8 

BO READ A,B,C:AS=AS+CHRS (A) 

84 BS=BS+CHAS (B) 

BB CS=CS+CHAS (C) 

90 NEXT 

100 CLS:LOCATE 2,11 

105 PRINT "Gerando labirinto de 
nível ";LS$S 

110 DATA 24,24,127,24,24,65,60, 
255,93,82,255,85,82,24,81,24,24 
[/95,96,24,64,36,24,127 


A linha 10 diz ao computador para 
utilizar a tela de textos (SCREEN 0). A 
linha 20 exibe, então, a mensagem: “Nií- 
vel de dificuldade (O - 5) 7” 

L$ é o nível que o jogador escolheu. 
O valor numérico de L8 — VAL (L$) 
na linha 40 — regula o tamanho do blo- 
co, a extensão do caminho e a comple- 
xidade do labirinto. O INKEY$ na linha 
30 significa que o jogador não precisa 
digitar mais que um único dígito em res- 
posta à pergunta, e que o programa con- 
tinua sem que ele precise pressionar 
<ENTER>. 

Na linha 40, o BS é o tamanho do 
bloco gráfico, em pixels. O tamanho po- 
de variar de oito a doze pixels. NX é o 
número de blocos na direção horizon- 


OR L$>"5 
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Outro bucaneiro explora o colorido labirinto do Spectrum. 


tal, e NY é o número de blocos na dire- 
ção vertical. 

Antes de desenhar o labirinto na te- 
la, o computador calculará sua aparên- 
cia final e colocará essa informação no 
conjunto P, que é dimensionado (DIM) 
na linha 60. A variável A$ contém o for- 
mato do homenzinho, e a variável B$, 
uma cruz, para assinalar sua ''morte””. 
A variável C$ contém a imagem do te- 
souro. Os códigos gráficos correspon- 
dentes são lidos em DATA, na linha 
110, e concatenados nas variáveis alfa- 
numéricas mencionadas. Posteriormen- 
te, esses blocos gráficos serão colocados 
dentro de sprites. 

O computador limpa a tela de textos 
na linha 100, e esta informa que o labi- 
rinto está sendo produzido. 





DESENHE O LABIRINTO 


Agora, digite a parte do programa 
que produz o labirinto, e rode-o para ver 
o resultado: 


1000 
1005 
1008 
1010 
1014 
1018 
1020 


FOR J=0 TO NX 
P(J,NT)=6:P(J,0)=6 

NEXT 

FOR J=0 TO NY-2 
P(D,J)=6:P(NX,J) =6 

NEXT 

X=2:Y=2:LX=2:;:LY7=2 

1030 J=INT(RND(1)*4):G=J] 

1040 Y=LY+2*((]J=0)-(J=2)):X=LX+ 
2*((]J=3)-(J=1)) 

1050 IF P(X,Y)=0 THEN P(X,Y)=J+ 

1:P((X+LX)/2, (V+LY)/2)=5:LX=X:L 
Y-Y:GOTO 1030 

1060 J=(J+1) AND 3:IF J<>G THEN 
1040 

1070 J=P(LX,LY)-1:P(LX,LY) =5 

1075 IF J<4 THEN LX=LX-2* ((J=3) 

=-(J=1)):LY=LY-2*((]=0)-(]J=2)):G 








— io a 


OTO 1030 

1080 FOR J=0 TO 20 

1082 P(2+2*INT(RND(1)*((NX-3)/2 
)). 1+INT(RND(1)*(NT-3)))=5 

1085 P(1+INT(RND(1)*(NX-3)),2+2 
XINT(RND(1)*((NT-3)/2)))=5 

1088 NEXT 

1090 SCREEN 2,0 

1092 COLOR 1,10,4 

| | SPRITES(1)= AS 

1098 SPRITES(0)= BS 

1099 SPRITES (2)=CS 

FOR J=2 TO NX-2 

FOR K=2 TO NY-2 

1110 IF P(J,K)=5 THEN LINE (J*B 
S+5X, K*BS+5Y7)- ((J+1) *BS+5X-1, (K 
+1) *BS+5Y-1),4,BF 

1130 NEXT K 

1140 NEXT J 


As linhas 1000 a 1080 “desenham” 
o labirinto na memória do computador 
e armazenam sua forma no conjunto P 


a 





“4 
41 


(cada elemento do conjunto correspon- 
de a um bloco do labirinto). A sub- 
rotina armazena o número 5 em P onde 
quer que exista um caminho, e o núme- 
ro O faz o mesmo, caso exista uma pa- 
rede. 

Uma vez que o labirinto tenha sido 
armazenado em P, a linha 1090 liga a 
tela de alta resolução, e a linha 1092 de- 
fine as cores de frente e de fundo do de- 
senho. As linhas 1094 a 1099 definem os 
sprites correspondentes aos blocos grá- 
ficos montados na seção anterior do 
programa. Note que o sprite do bloco 
em branco tem prioridade sobre o blo- 
co do homenzinho, As linhas 1100 a 
1140 exibem o labirinto na tela median- 
te a verificação dos conteúdos de P, 
Quando um 5 for encontrado, um qua- 


no 
ha “" 
fá 


































drado será impresso (comando LINE de 
bloco cheio) na linha 1110. 






MONTE O JOGO 





Agora você precisa de um jogo para 
divertir-se com o labirinto aleatório. Di- 
gite a próxima seção do programa; mas 
não o rode, pois ele chamará uma sub- 
rotina que ainda não existe. 


1200 X=2:Y=2:Li=2:LY7=2 

1210 TI=B00:LI=3 

1215 R=RND(-TIME) 

1220 TIME=0 

1230 X1=1+INT(RND(1)*(NX-3)) 
1240 Y1=1+INT(RND(1)*(NY-3)) 
1250 IF P(X1,Y1)=5 THEN P(X1,Y1 


)j=7:PUT SPRITE 2, (SX+X1I*BS,5Y+Y 
1*BS),10 ELSE 1230 

1255 X1L=K*BS+SX: YL=Y*B5+5Y 

1260 PUT SPRITE 1, (X1,Y1),1 
1270 TS=INKEYS:IF TS="" THEN 12 
70 

IF ASC(TS)=28 THEN X=X+1 
IF ASC(TS)=29 THEN X=X-1 
IF ASC(TS)=30 THEN Y=Y-1 
IF ASC(TS)=31 THEN Y=Y+1 

| | IE P(X,T)=Y7 THEN F-l:P(X,Y 
)=5:GOTO 1330 

1325 IF P(X,Y)<>5 THEN X=LX:Y=L 
Y:GOTO 1270 

1330 IF X<>2LX OR Y<2LY THEN LX= 
X:LY=Y 

1340 IF F=1] THEN F=0:SC=SC+(TI- 
TIME) :TI=TI-10:GOTO 1220 

1350 IF TIME2TI THEN GOSUB 1500 
:IF LI<1l THEN 1000 

1360 GOTO 1255 


A linha 1200 contém as variáveis a 
partir das quais a posição do homenzi- 
nho é calculada. X e Y são as coorde- 
nadas da posição atual do homenzinho, 
e LX e LY, da última posição. Tl é o 
limite de tempo para descobrir o tesou- 
ro, e LI, o número de ''vidas” de que 
Q jogador dispõe. O tempo limite é de 

cerca de dezesseis segundos; se este 

se esgotar sem que o tesouro tenha 

sido encontrado, o homenzinho perde- 

rá uma “vida”, No início, o joga- 
dor tem três “vidas”, 

A linha 1215 introduz o gerador de 


números aleatórios, usando como *'se- 


mente” o valor armazenado no cronô- 
metro interno, naquele instante. O cro- 
nômetro interno do computador é zera- 
do na linha 1220, antes que as linhas 
1230 e 1240 selecionem uma posição 
aleatória para o tesouro. O elemento 
correspondente em P é examinado na li- 
nha 1250, para verificar se nesse lugar 
há um caminho ou uma parede. Se hou- 
ver um caminho, o valor do conjunto se- 
rá modificado de 5 para 7. A última par- 
te da linha desenha o tesouro no labi- 
rinto. 
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A posição do pirata é calculada na li- 
nha 1255, levando-se em conta a largu- 
ra do caminho, que é o tamanho do blo- 
co BS. A linha 1260 coloca o homenzi- 
nho na tela, naquela posição. 

As linhas 1270 a 1310 examinam o te- 
clado através do comando INKEYS, de 
modo a permitir a movimentação con- 
tínua do homenzinho, no labirinto, co- 
mandado pelas teclas de controle do cur- 
sor. À linha 1325 faz com que ele se 
mantenha dentro do caminho, de mo- 
do a impedi-lo de atravessar alguma pa- 
rede, A linha 1320 checa se o tesouro foi 
encontrado, examinando o elemento 
correspondente em P para o número 7. 
Quando otesouro é encontrado, o ''indi- 
cador de descoberta” (F) é igualado al. 

A linha 1330 promove a movimenta- 
ção do homenzinho, fazendo com que 
a localização atual torne-se a última po- 
sição. Como o homenzinho é definido 
por intermédio de um sprite, não é ne- 
cessário apagá-lo do lugar onde estava, 
como em outros computadores. 

A linha 1340 calculará o escore, se o 
tesouro for encontrado. O limite de tem- 
po é diminuído de 10 segundos. O F re- 
torna ao zero e o programa volta à li- 


nha 1220 para zerar o cronômetro. O 
programa continua, redesenhando o te- 
souro em outro lugar, mas deixando o 
pirata no ponto em que ele estava quan- 
do o último tesouro foi encontrado. 

Se o jogador demorar muito para 
achar o tesouro, a linha 1350 chamará 
a sub-rotina que se inicia na linha 1500 
(ela será apresentada a seguir). Essa sub- 
rotina diminui uma '*'vida"' do jogador; 
caso tenha se esgotado o número de 
“existências”, O programa retornará ao 
começo (linha 1000), Se o homenzinho 
não tiver achado o tesouro e ainda dis- 
puser de algum tempo, a linha 1360 fa- 
rá o programa voltar à linha 1255, per- 
mitindo que sua nova posição seja cal- 
culada. 


EXIBA O ESCORE 





A sub-rotina final exibirá o escore e 
o número de '“vidas” restantes depois 
que uma ''vida”” for perdida: 
1500 LI=LI-1 
1505 PUT SPRITE O, (X1,Y1),1 
Ra OPEN "GRP:” FOR OUTPUT AS 
$ 





3) ;"VIDAS:";LI;TAB(5);"SCORE = 
"«8C 

1520 FOR J=1 TO 6000:NEXKT 

1525 LINE(0,0)-(255,7),10,BF 
1530 IF LI>O THEN PUT SPRITE O, 
(=20,-20) :CLOSE 41:TIME=0:RETUR 
N 

1540 PSET(0,0),4:PRINT 41," Que 
r jogar novamente ? (S/N)" 

1550 AS=INKEYS:IF AS<>"5" AND à 
S<>"N” THEN 1550 

1560 IF A$="5" THEN RUN 

1570 END 


Rode o programa: se uma ''vida” for 
perdida, ele diminuirá de 1 o número de 
“existências” restantes (linha 1500), A 
linha 1505 assinala a ''morte'”” do per- 
sonagem. 

As linhas 1510 a 1530 exibem o nível 
de dificuldade, o número de “'vidas" 
restantes e a contagem de pontos. Caso 
ainda sobrem ''vidas””, a linha 1530 co- 
locará o cronômetro em O. 

As linhas 1540 a 1560 perguntam se 
o jogador quer tentar de novo; depen- 
dendo da resposta, elas param o progra- 
ma ou o rodam novamente. O RUN é 
utilizado na linha 1560, limpando P pa- 
ra um novo labirinto. 


UMA TÉCNICA DE ANIMAÇÃO DE BLOCOS GRÁFICOS NOS 


MICROCOMPUTADORES DA LINHA TRS-80. 


Os micros da linha TRS-80, por serem 
de tecnologia mais antiga do que os da 
nova geração de computadores pessoais 
(Sinclair Spectrum, MSX, TRS-Color), 
contam com menores recursos para a de- 
finição de blocos gráficos (UDG, ou user 

= defined graphics) além de terem uma 
resolução gráfica na tela (128 x 48 pixels) 
insufi ciente para a programação de efei- 
tos visuais mais sofisticados. 

Existem, porém, formas de contornar 
esse problema. Assim, para definir e ani- 
mar blocos gráficos no TRS-80, utiliza- 
mos três conceitos básicos de programa- 
ção: como incorporar caracteres gráficos 
a variáveis alfanuméricas (cordões); co- 
mo usar os caracteres de controle do cur- 
sor para definir figuras complexas, e co- 
mo movimentar blocos gráficos por meio 
do comando PRINTO. 

Como a utilização desse comando já 
foi explicada, abordaremos aqui apenas 
a técnica de definição de figuras com- 
plexas. 

Imagine que queremos definir um dis- 
co voador. Para montar a figura em uma 
única variável alfanumérica (por exem- 
plo, D$) concatenamos os caracteres grá- 
ficos que determinam a primeira linha 
(veja no manual do seu computador os 
códigos gráficos correspondentes): 


AS = CHR$(128)+CHRS(186)+ 
CHR$S (176)+CHRS (186)+ 
CHRS (144) 





Acrescentamos a seguir a linha do 
meio da figura. Mas, se nos limitarmos 
a concatenar os próximos caracteres grd- 
ficos ao DS jd definido, na hora de colo- 
car o disco voador na tela por meio de 
um PRINTOE, o desenho saird errado (em 
vez de se posicionarem uma embaixo da 
outra, as duas linhas ficarão fundidas em 
uma única linha). Para evitar isso, temos 
que fazer com que o cursor se posicione 
no ponto certo, abaixo da primeira linha 
do gráfico. Para isso, usamos os códigos 
de controle: CHR$(26), que tem o efeito 
de descer o cursor do PRINT de uma po- 
sição na tela, e CHRS$(24), que recua o 
cursor, sem limpeza. 

Dessa forma, para posicionar o cur- 
sor corretamente na linha seguinte do grd- 
fico, temos que descer uma posição com 
O cursor e recuar cinco posições. Para 
economizar tempo de digitação, podemos 
definir um cordão BS, que incorpora to- 
dos esses CHRS: 


BS = CHR$ (26) +STRINGS (5,24) 
E agora AS fica definido assim: 
AS = CHR$S(128)+CHRS(18B6)+ 
CHRS (176) +CHR5S (18B6)+ 
CHARS (144) +BS+CHAS (170)+ 
STRINGS (4,171) 


Finalmente, podemos completar a fi- 
gura, adicionando a terceira linha de blo- 


cos gráficos, e repetindo o truque de des- 
cer uma posição e recuar o cursor cinco | 
posições; 


AS = CHR$(128)+CHRS (186)+ 
CHRS (176) +CHRS (186) + 
CHR$S (144) +BS+CHRS (170) + 
STRINGS (4,171)+BS+ | 
CHRS (128) +STRINGS (3,131)+ 
CHRS (129) 


O bloco gráfico está definido. Para de- 
senhar, de uma vez só, esse bloco em um 
ponto qualquer da tela (por exemplo, na 
posição N), basta dar o comando: 


PRINTEN,AS; 


Para animar o bloco gráfico contido 
em AS, variamos o valor de N, 
colocando-o dentro de um laço de pro- 
grama. Se o valor de N for aumentado 
ou diminuído de 64, em cada repetição 
do laço, a movimentação se dará no sen- 
tido vertical. Por outro lado, se esse va- | 
lor for aumentado ou diminuído de 1, o 
movimento se fará no sentido horizontal. 

Para apagar o bloco gráfico do lugar 
onde estava, é necessário colocar por ci- 
ma dele um terceiro bloco gráfico previa- 
mente definido, contendo apenas três li- 
nhas de cinco caracteres em branco, con- 
catenadas por meio do cordão de contro- 
le, B$, definido acima. 








5 microcomputadores para os sorteados 
do 1º ao 5º prêmios da Loteria Federal 


REGULAMENTO 


Para concorrer no 2º sorteio do sensacional Concurso 
INPUT, você deve juntar 06 selos que virão no canto 
inferior direito dos fascículos 1 a 16 (1 selo por edição), 
indistintamente. Se você enviou a cartela para o 1º 
sorteio, ainda sobraram 02 selos que poderão ser usa- 
dos agora. Caso prefira não usá-los, envie os selos das 
demais edições citadas. 

Cole os 06 selos na cartela abaixo, ou envie-os cola- 
dos num papel dentro de um envelope. 

Você receberá um número com o qual concorrerá no 
sorteio da Loteria Federal do dia 04 de outubro de 
1986. Serão aceitas as cartelas/selos enviados até 
05.09.86. 


A cartela/selos deverão ser enviados juntamente com 
seu nome, endereço, telefone, nº da carteira de identi- 
dade (do participante ou responsável) e CPF, num en- 
velope endereçado ao CONCURSO INPUT - Caixa 
Postal 9442, CEP 01000, São Paulo - SP. 

OBS.: A prescrição do direito aos prêmios se dará 180 
dias após o sorteio. O resultado será publicado nos 
fascículos INPUT e os prêmios entregues por nossos 
distribuidores nas cidades de residência dos contem- 
plados. 

Se tiver alguma dúvida, consulte nosso Serviço de 
Atendimento ao Leitor, pelo telefone (011) 815-8055 - 
ramal 235. 


Estado: 


[1] 
CGORRERSES o 


BE--- nuno 


Não perca mais esta chance de ganhar um dos 10 sensacionais 
microcomputadores HOT BIT HB 8.000 SHARP. 
Continue colecionando INPUT. Seu micro ganha vida. 














Fone: [TT] Céduia de identidade: [TT TTTIT 
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Cert. Aut. Min. Faz. nº 01/00/237/86 


NIHHRRnanENO PRÓXIMO NÚMERONEEHEEHHII! 


PROGRAMAÇÃO DE JOGOS 


Efeitos sonoros: das explosões aos ruídos extraterrenos e ao 
barulho de um trem, eles dão vida e ““colorido"” aos jogos. 


CÓDIGO DE MÁQUINA 


Como funciona a memória interna do computador. Memórias RAM 
e ROM. Onde os programas são armazenados. 


PROGRAMAÇÃO BASIC 


Mensagens de prontidão. Programas de desenhos na tela. Uma 
rotina para entrada de senhas secretas. 


Det DÃO ada 





